printf ( " \nFAILURE TO OPEN OR LOCATE FILE! ! ! \n" ) ; 
found_file = NO; 

} 

else 

found_file = YES; 

} 



printf ("\n\nPlease enter the sequence number of the primary sequence:"); 

scanf r%d",&mainseq) ; /*query for mamseq parameter*/ 

orintf ("\n\nEnter the INTEGER PRECISION of the P-values you will calculate (ex: 4) :") ; 
scaSf(»%dO &P rec); /'query for PRECISION parameter*/ 

/* value of 42 -> "fast forwards" through scoring step */ 



/* see score_manager function for use of these values below */ _ 

printf ("\n\nEnter the COLUMN POSITION start value (O-Total Positions): ); 

scanf ("%d" , &START) ; 

printf ("\n\nEnter the COLUMN POSITION STOP value (O-Total Positions; -1 = END):"); 
scanf ( n %d" , &STOP) ; 

/* added to "jump" over score caculation step */ 

if (prec -= 42) 

PRECISION = 42; 

else 

PRECISION - (double) pow(10 ,prec) ; 
^ *** ************************************* ******/ 



input = read_input( input file) ; 
f close (inputfile) ; 
return input ; 



^**************************************************/ 
/******** FUNC TION: read_input *********************/ 
/** returns pointer to input **********************/ 
y**************************************************/ 

char *read_input (FILE *ifile) 

unsigned char *cvector (long nl, long nh) ; 

void exitprogramO ; 

extern int NUM_ROW; 
extern float NUM_COL; 
extern int OFFSET; 

char * input ; 

int x; /*int read*/ 

char c; /*char read*/ 

float fmax_col; /*max num of residues, float*/ 

int imax_col; /*max num of residues, int*/ 

int seq = 0; /*number of sequences = NUM_ROW*/ 

int count = 0; /* total number of aa + label characters*/ 

int i = 0; /* input index*/ 

int reading = 1; /*flag for EOF*/ 
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long temp; 

NUM_COL = 0; 
NUM_R0W = 0; 
OFFSET = 0; 



printf {"\nAllocating Memory for Input File An 11 ); 

x = fgetc (if ile) ; 
while (x ! = EOF) { 
if (x == '>') 

NUM_ROW += 1; 
if (isalpha(x) != 0 | | x == '-' ) 

count += 1; 
x = fgetc (if ile) ; 

} 



fmax_col = (float) (count / NUM_ROW) ; 
imax_col = (int) fmax_col + 1; 

temp = NUM_ROW*imax_col; 
input = cvector ( 0 , temp) ; 
/*allocate input matrix */ 

/ *NOTE : matrix will be larger than needed*/ 



if (input == NULL) { 

printf (" \nDynamic Memory Allocation FAILURE! ! \n ); 
exitprogram ( ) ; 
exit(l) ; 

} 

else 

printf ("Allocation Completed. \n" ) ; 

fseek(ifile, 0, SEEK_SET) ; /*start reading from begining of file*/ 

printf ("Attempting to Read File. Please Wait.\n"); 
x = fgetc (if ile) ; 
while (reading == YES) { 
while (x != '>') 

x = fgetc (if ile) ; 
while (x 1= '\n') 

x = fgetc (if ile) ; 
while ( x != '>' x != EOF ) { 

if (isalpha(x) 1= 0 || x == '-') { 
c = x; 

* ( input + i ) = c ; 
i += 1; 

} 

x = fgetc (if ile) ; 

} 

if (x == EOF) 

reading = NO; 

printf ("Sequence #%d Read. Continuing . . .\n", seq) ; 
seq += 1; 

} 

printf ( "\n\nFile ReadAn"); 

if (i % NUM_R0W != 0) { 

printf ("ERROR: SEQEUNCES NOT EQUAL IN LENGTH : \n" ) ; 
printf { "CHECK FOR PROPER ALIGNMENT\n" ) ; 
exitprogram () ; 
exit (5) ; 

} 

else { 

NUM_COL = (float) i / NUM__ROW; 
OFFSET = (int) NUM_COL; 

} 

return input; 
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/********FUNCTION: score_inanager *****************/ 



void score_manager (char *input) 
{ 

int **chi_analysis (char *input, int start, int stop); 

extern float NUM_COL; 
extern int START; 
extern int STOP; 

int **chi_matrix; 

int start; 
int stop; 



start = START; 

if (STOP < 0) 

stop = (int) NUM_COL; 
f. comp*/ 



/*so that program can be run simutaneous on di 



else 



stop = STOP; 



chijmatrix = chi_analys is ( input , start, stop) ; 
free_imatrix(chi_matrix, 0, 30, 0, 30); 



/******* * FUNCTION* chi analysis *******************/ 

int **chi_analysis (char *input, int start, int stop) 
{ 

int f ind_unique_elements (char *input, char *aa, int *gap, int var) ; 

void crosstab (char *input, int **chi_matrix, char *aal, char *aa2 , int varl, int va 
r2 , int countl, int count2) ; 

int chisquare (int **nn, int ni, int n j , float *chisq, float *df, double *prob, dou 

ble *cramrv, float *ccc) ; 

void gap_rectifer (int **chi_matrix, int gapl, int gap2 , int *cntl, int *cnt2); 

void matrixconverter (int **chi_matrix, int *matrix, int countl, int count2, int fla 

g); 

double estExact(int *ROWmatrix, double PRECISION, int numrows, int numcols); 
int cochrantest (int **chi_matrix, int *rowtot, int *coltot, float *expctd, int num 
rows, int numcols) ; 

float GetFloatTimer (float timer) ; 



extern float 
extern double 
extern int 
extern int 
extern int 
extern int 



NUM_C0L; 

PRECISION; 

NUM_ROW; 

CELLS ; 

PLACES; 

*dlength; 



/*Number of Residue Positions*/ 
/^precision of calculated probability*/ 
/*Number of Seqeunces*/ 



char unil [POSITIONS] ; /*array of unique aa in a position*/ 

char uni2 [POSITIONS] ; /*array of unique aa in a 2nd pos */ 

char *uniquel ; 
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char *unique2 ; 

int countl; 

int count2; 

int i, j; 

int gapl, gap2 ; 

int original_countl; 

int test_flag; 



int iqw,jqw,kqw; ***/ 



int *rowtot; 
int *coltot; 
float *expctd; 



/*number of unique aa in a position*/ 
/*number of unique aa in a 2nd pos */ 

/*nuinber location of gap (-) in uni arrays*/ 



/*loop variables for debugging display*/ 

/*array for row totals*/ 

/*array for column totals*/ 

/*matrix for expected frequncy table*/ 



float chi, d, cc; 
double pr,cram; 
float *chisq, *df, *ccc; 
double *prob, *cramrv; 

double estprob; 
t methods*/ 

double logprob; 

int **chi_matrix; 

*/ 

int **chi_matx2 ; 
ction*/ 

float timer; 

int *matrixjoy_rows; 



char 
char 

char 
char 



/*probability as determined by exact or estimated exac 



/*CROSSTABULATI0N matrix of correlation frequency 

/*cross tabulation matrix with origin=ORIGIN */ 
/*This ORIGIN shift is necessary for chisquare fun 



outfile[30] = "alldata"; 
fullname[40] ; 



/* 2D chi_matrix represented as ID array, by rows */ 

/*output file for data*/ 

/*output file for data*/ 



outfile2[30] = "nulldata"; 
fullname2 [40] ; 



/*output file for meaningless data*/ 



char outfile3[30] = "distribution.txt"; /*output for distribution data*/ 

int cramfreq[1001] = {0}; 
int index, index2 , ww, tt; 
int * lpfreq; 



FILE * output = NULL; 
FILE * output2 = NULL; 
FILE * output3 = NULL; 



/^output file initiation*/ 



MEMORY ISSUES 



uniquel = unil; 
unique 2 = uni 2 ; 
chisq = χ 
df = &d; 
prob = &pr; 
cramrv = &cram; 
ccc = &CC; 

chi_matrix = imatrix(0, POSITIONS , 0, POSITIONS) 
trix */ 



/* allocates memory for an int ma 



lpfreq = ivector (0, 100*prec) ; /* allocates memory for log-prob distribution */ 



for (tt=0; tt <= 100*prec; tt++) { /^initializes log-prob variable to 0 */ 
lpfreq [tt] = 0; 

} 
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/* Open Files for output */ 



sprintf (fullname, "%s%dx%d. txt" , outfile, start, stop); 
sprintf (fullname2 , "%s%dx%d. txt " , outfile2 / start, stop); 



output = f open (fullname, "w"); 
output2 = fopen (fullname2 , "w"); 
output3 = f open (out file3 f "w" ); 



if (output == NULL) { 

printf ( " \nFailure to Create alldata File.Vn"); 
exi t ( 2 ) ; 



if (output2 == NULL) { 

printf ( " \nFailure to Create nulldata File.\n" ); 
exit (2) ; 



if (output3 == NULL) { 

printf ("\nFailure to Create DISTRIBUTION File.\n u ); 
exit (2) ; 



ft******************************************/ 

/* Start Timer */ 

timer = GetFloat Timer {0.); 



/***end of opening file for output**********/ 



/********** start of Main Cycle ***********/ 

y***************************^ 

for (i = start; i < stop; i++) { 

printf ("\n SCORING position #%d's possible interactions. . . please wait.", i) ; 

countl = f ind„unique_elements (input, uniquel, fcgapl, i) ; /*find 
s unique aa in 1st residue*/ 

original__countl = countl; 

for (j = (i+1); j < NUM_COL; j++) { 

printf ("\n\t\t SCORING its interaction with position #%d . . . calculating . . 

* " ' j); 

countl = original_countl; /*must be reset each cycle so gap_rectifie 

r does not keep reducing number*/ 

count2 = f ind_unique„elements ( input , unique2 , &gap2 , j ) ; /*find 
s unqiue aa in 2nd residue*/ 

y********************** y 
/*form crosstab matrix*/ 
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crosstab (input, chi_matrix, uniquel, unique2, i, j , countl, count2) ; /*make 
s correlation table */ 

gap_rectifer (chi_matrix,gapl, gap2, Sccountl, &count2) ; /*adju 
sts for presence of gaps*/ 

/************************************** 

/* Allocation of memory for reading by various analyitical programs */ 

rowtot=ivector(0, countl) ; /*row totals*/ 

coltot=ivector (0 / count2) ; /*column totals*/ 

expctd=vector (0, ( (countl+1) * (count2+l) -1) ) ; /*expected frequen 

cies*/ 

/♦Statistical Analysis of crosstab matrix*/ 

estprob = MEANINGLESS; /*meaningless , unless determined */ 
*prob - MEANINGLESS; / *meaningless , unless determined */ 

if {countl >= 1 && count2 >= 1) { /* tests that matrix is min. of 2x2 

*/ 

test_flag = cochrantest (chi_matrix, rowtot, col tot, expctd, countl+1, coun 
t2+l); /*cochran test*/ 

if (test_flag == 0 ) ) test — flag ==1) { /*do normal chi_square test wi 
th estimated probability*/ 

chi_matx2 = subimatrix (chi_matrix, 0 , POSITIONS, 0 , POSITIONS , ORIGIN , ORIGI 

N) ; 

/♦shifts table to ORIGIN, ORIGIN*/ 

chisquare (chi_matx2 , countl+ORIGIN, count2+ORIGIN, chisq, df, prob, cr 

amrv, ccc) ; 

/*determines chi, est. prob, cram*/ 

free„subimatrix(chi_matx2, 1, POSITIONS+ORIGIN, 1, POSITIONS+ORIGIN); 
/♦deallocate memory*/ 

estprob = *prob; 

} 

if <{test_flag == 1) && (estprob != MEANINGLESS) ) { /*do exact or 

estimated exact probability determination*/ 

/ *NOTE this second condition is b/c in 

chisquare, gap check of 50%*/ 

matrix_Jby_rows = ivector (0 , ( (countl+1) * (count2+l) -1} ) ; /* 

allocate memory*/ 

matrixconverter (chi_matrix, rnatrix_by_rows, countl, count2, 0); /* 
converts 2d matrix to Id by rows matrix*/ 

estprob = estExact (matrix_by_rows , PRECISION, countl+1, count2+l) ; /* 
determine est. exact prob*/ 

free_i vector (matrix„by„rows , 0, ( (countl+1) * (count2+l) -1) ) ; 
/*deallocate memory*/ 
} 

else { *prob = MEANINGLESS; estprob = MEANINGLESS; } 

} 

else { *prob = MEANINGLESS; estprob = MEANINGLESS; } 



/* LOG conversion **/ 
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if (estprob > 0.0) logprob = ( -1) *logl0 (estprob) ; 
else logprob = 0.0; 



/*************************/ 

/** OUTPUT to files **/ /*** format: columnl, column2 , Chi, prob, cram *** 

*/ 

/*************************/ 



if { (pr < 0.0) || (i==j 11 estprob <0.0) || estprob == 1.0) { 

fprintf (output2, "%d\t%d\t% . 3f \t% . 5f \t% . 31f \t% . 5f \t%f \t% . If \n" , i, j ,chi,pr 
, estprob, cram, d, logprob) ; 

} / *NOTE : Precision of log prob is 1 place, because calculation of preci 

sion is to 10 hits */ 

/*SEE function estExact (tally < 10) for further explaination */ 

else { 

/************************* / 

/* tally distributions. */ 

^************************* / 

index = (int) (cram*1000) ; 
cramf req [ index] ++ ; 

index2 = (int) ( logprob* 100 ) ; 
lpf req [ index2 ] ++ ; 

/********************* j 



fprintf (output, " %d\t%d\t% . 3f \t% . 5f \t% . 201f \t% . 5f \t%f \t% . If \n" , i, j,chi,pr 
, estprob, cram, d, logprob) ; 

} 



/*************************************/ 

Free memory for this matrix ****/ 
/*************************************/ 

f ree_i vector (col tot, 0, (countl)) ; 
f ree_i vector (rowtot, 0 , (count 2) ) ; 

free_vector{expctd,0, ( (countl+1) * (count2+l) -1) ) ; 

y***** ************************ / 
/**** Debugging Display ******/ 
/***************************** / 

/*** start of display ****/ 

/* 

printf ( "\n\n\n\nCross tabulation matrix for %d x %d\n",m,n); 
printf ( "\nLabels incorrect due to gap rectif ication\n" ) ; 

for (iqw = 0; iqw <= count2 ; iqw++) 
printf ("\t%c" ,unique2 [iqw] ) ; 

printf ("Xn") ; 

for (jqw = 0; jqw <= countl; jqw++) { 
printf ( " %c" , uniquel [jqw] ) ; 

for (kqw = 0; kqw <= count2 ; kqw++) { 

printf ( " \t%d" , chi_matrix [ jqw] [kqw]) ; 

} 

printf ("\n n ) ; 

} 

printf ("\nchi:%f df:%f prob:%f cram:%f cc:%f\n n , chi, d, pr, cram, cc) ; 

*/ 
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/*** END Of DISPLAY ****/ 



/***** END OF DEBUGGING DISPLAY ****/ 



g^jj) TIMER **************************/ 
timer = GetFloatTimer (timer) ; 

fprintf (output, " \n\tTotal Elapsed Time is: %. 5f\n" , timer) ; 
fprintf (output, "Given: %f Est. Exact Iterations\n" , PRECISION) ; 
fprintf (output, "Given: %f Columns and %d Rows " , NUM_COL, NUM„ROW) ; 
y^******************************^ 



/******* OUTPUT of Distributions *****/ 

if (prec*100 < 1000) { /*V dist is finer than P distribution */ 

for (ww = 0; ww<=prec*100 ; ww++) 
{ 

fprintf (outputs, " %d\ t%d\ t%d\ t%d\n" , ww, cramf req [ww] ,ww, lpfreq[ww] ) 

} 

for (;ww < 1001; ww++) 
{ 

fprintf (output3, " %d\t%d\t%d\t%d\n" , ww, cramf req [ww] , NEGONE , NEGONE ) 

} 

*dlength = ww -1; 



else if (prec*100 > 1000) { /*V dist is less fine than P distribution * 
for (ww = 0; ww< 1001; ww++) 



fprintf (output3, "%d\t%d\t%d\t%d\n" , ww, cramf req [ww] , ww, lpfreq[ww] ] 



for (;ww <= prec*100; ww++) 
{ 

fprintf (output3, " %d\ t%d\ t%d\t%d\n" , NEGONE , NEGONE , ww, lpf req [ww] ) ; 

} 

*dlength = ww -1; 



} 

else { 

for (ww = 0; ww< 1001; ww++) 
{ 

fprintf (output3 , "%d\t%d\t%d\t%d\n" ,ww, cramfreq[ww] , ww, lpfreq[ww] ) 

} 

*dlength = ww -1; 

} 

/**************************^ 



/****close output data pointer file****/ 
f close (output) ; 
f close (output2 ) ; 
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f close (output3 ) ; 

fx*************************************/ 



return chi_matrix; /^return pointer for sole purpose of freeing memory allocation*/ 

} 



/******************************** 

/********FUNCTION: fi n d_unique_elements**** ********/ 



int f ind_unique_elements (char *input, char *aa ; int *gap, int var) 
{ 

extern int OFFSET; 
extern int NUM_ROW; 

int i; 

int j; 

int k; 

int r; 

int ext; 



int counter =0; /* # of unique amino acids */ 



for (k = 0; k < POSITIONS; k++) { /*clear buffer*/ 

aa[k] = 0; 



*gap = -1; /* start off = -1; signifies no gap in position, in any sequen 

ceV 

aa[0] = *{input + var); /*the first amino acid is always unique*/ 



for (i =1; i < NUM_R0W; { /*now compare REST of aa=NR-l : therefore < */ 

j = counter; 
ext = NO; 

while (ext == NO) { 

if (* (input + (i * OFFSET + var)) 1= aa[j]) { 

j = j - 1; 

if (j < 0) /*No Match, therefore unique */ { 

counter = counter + 1; 

aa [counter] = * (input + (i * OFFSET + var)); 
ext = YES; 

} 

else /* No match yet, check previous elements */ 
ext = NO; 

} 

else / * MATCHED, so exit*/ 
ext = YES; 

} 



for (r = 0; r<=counter; r++) { 
if (aa[r] == '-') 
*gap = r; 

} 

> 

return counter; 



/******* * FUNCTION : Crosstab ***********************/ 
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/* Description: using two lists of unique amino acids, found in position varl, var2 */ 



/* compare all aa in a position to the list [0...p or q] */ 

/* when a match is found in position var, add 1 to matrix position p */ 

/* when a match is found in position var2 , add 1 to matrix position q */ 

/* Thus, chi_matrix[p] [q] is a tally of frequency of all possible combinations */ 

/* of amino acids found in varl with var 2, */ 



void crosstab(char *input, int * *chi_matrix, char *aal, char *aa2, int varl, int var2 , 

int countl, int count2) 

{ 

extern int OFFSET; 
extern int NUMJROW; 

void exitprogram( ) ; 

int i, j , k, n, m, p, q; 
int found_p = 0; 
int found_q = 0; 

for (j = 0; j <= POSITIONS; j++) { ^initialize all values to zero */ 

for (k = 0; k <= POSITIONS; k++) { 
chi_matrix[ j ] [k] = 0; 

} 

} 

^ for (i = 0; i < NUM_ROW; i++) 

n = 0; 

■,f| /* input compares to n*/ 

s7 m = 0; 

^ /* input compares to m*/ 

found_p = NO; 
found_q = NO; 



while (found_p == NO) { 
if ( n > countl ) { 

print f ( " ERROR : overflow of unique characters set 1" ); 
printf("\n n = %d; i = %d",n,i); 
printf("\n %s = aal after overflow", aal) ; 
printf ("\n%c = input" , (*input+(i*OFFSET+varl) >) ; 
exitprogram( ) ; 
exit (4) ; 

} 

if ( * (input + (i * OFFSET + varl)) == aal[n] ) { 
p = n; 

found_p = YES; 

} 

else { 

n += 1; 
found_p = NO; 

} 

} 

while (found_q == NO) { 
if (m > count2 ) { 

printf ( "ERROR: overflow of unique characters set 2"); 
exitprogram( ) ; 
exit (3 ) ; 

} 

if ( * (input + (i * OFFSET + var2)) == aa2 [m] ) { 
q = m; 

found_q - YES; 

} 

else { 

m += 1; 
found„q = NO; 

> 

} 

chi_matrix[p] [q] += 1; 



{ 

/*n are unique aa in 1*/ 

/*m are unique aa in 2*/ 

/*when a match is found, signal*/ 

/*when a match is found, signal*/ 
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} 

} 



/**********FUNCTION: gap_rectif ier ****************/ 

void gap_rectifer ( int **chi_matrix, int gapl, int gap2 , int *cntl, int *cnt2) 

/* removes gap (-) from chi_matrix */ 

/* NOTE: any zero columns and rows */ 

/* produced by gap-as-value removal, */ 

/* removed in chisq funct. */ 



{ 



int i,j,k,l; 

if {gapl != -1) { 



for (i = (gapl+1); i <= *cntl ; i++ ) { 

for (j = 0; j <= *cnt2; j++) { 
chi_matrix[i-l] [j] = chi_matrix [ i] [j] ; 

> 



/* removes gap values*/ 



} 



*cntl = *cntl 



if (gap2 != -1) { 

for (k = (gap2+l) ; k <= *cnt2 ; k++ 



{ 



for (1 = 0; 1 <= *cntl; 1++) { 
chi_matrix[l] [k-l] = chi_matrix[l] [k] ; 

} 



/* removes gap values*/ 



*cnt2 = *cnt2 



1; 



/★★it***********************************************/ 
/**********FUNCTION: matrixconverter 

void matrixconverter (int **chi_matrix, int *matrix, int countl, int count2, int flag) 
{ 



int 

int index; 

if (flag == 0) { 

for (i = 0; i <= countl; i++) { 

for (j = 0; j <= count2; { 
index = i*(count2+l) + j; 
matrix [index] = chi_matrix [ij [ j ] ; 

} 
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} 



else if (flag == 1) { 

for (j = 0; j <= count2; { 
for (i = 0; i <= countl; i++) { 
index = j* (count 1+1) + i; 
matrix [ index] = chi_matrix[i] [ j ] ; 

} 

} 



/*******************************************/ 
/**** cochrantest FUNCTION *****************/ 
/*******************************************/ 



int cochrantest (int **chi_matrix, int *rowtot, int *coltot, float *expctd, int nuiarows, in 

t numcols) 

{ 

float tally; 

int numrows2 , numcols2 , i, j , r; 
float sum=0.0; 

/*******★*************** / 

/* clears memory =0 */ 
/*********************** j 



for {r=0;r < nunirows* numcols ; r++) { 
* (expctd + r) = 0 ; 

} 

/*********************** / 

/*calc row and col info*/ 
/*********************** / 

numrows2 =numrows ; 
numcols2 -numcols; 

for {i=0;i< numrows;i++) { 
rowtot [i] =0 ; 

for (j=0;j< numcols;j++) { 

rowtot [i] + = chi_matrix[i] [ j ] ; 
sum += chi_matrix [ i ] [j]; 

} 

if (rowtot [i] == 0 
num*/ 



/*can probably combine with step below*/ 



-numrows2 ; 



/*Number of rows*/ 
/ *and columns . * / 

/*Get the row totals.*/ 
/* clears memory*/ 



/* Eliminate any zero rows by reducing the 



for (j=0;j< numcols { 
coltot [j]=0; 



/*Get the column totals.*/ 
/*clears memory*/ 



for (i=0;i< numrows ; i++) coltot [j] += chi_matrix[i] [j ] ; 
if (coltot[j] == 0) --numcols2; /*Eliminate any zero columns.*/ 



/***************************************** 

/*** Test of Matrix: must be 2x2 after zero removal *******/ 
/****************************************^ 



if ( (numcols2 < 2) || (numrows2 < 2)) { 
sible **/ 



/** Chisquare statistical analysis not pos 
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return MEANINGLESS; 

} 



/*****************************************************/ 
/* Calculate expected frequencies of original Rmatrix*/ 

/*****************************************************/ 

tally = 0.0; 

for (i=0;i< numrows ; i++) { /*Do the chi-square sum.*/ 

for (j=0;j< numcols ; j ++) { 

*(expctd +(i*numcols + j)) = (coltot [ j ] *rowtot [i] ) /sum; 

if (*(expctd +(i*numcols + j ) ) >= EXPECTED) 
tally += 1; 

else if (Mexpctd +{i*numcols + j)) <= MINIMUM) 
return 1; 

} 

} 

if ( (tally/sum) < PERCENT ) return 1; 
else return 0; 



^*******************************************/ 
/**** exitprogram FUNCTION *****************/ 

y*******************************************/ 

void exitprogram () { 
float exitprog; 

print f ( " \ n \ n PROGRAM EXECUTION COMPLETED " ) ; 

printf ("\n\n\nPlease enter '1.1' to exit program:"); 

scanf ("%f ",&exitprog) ; 



printf ("GOOD BYE") ; 



/**** postionrelater FUNCTION 



void positionrelater (char *input) 
{ 

int i,j; 

char outfile[30] = "Position"; /*output file for data*/ 

char fullname[40] ; /*output file for data*/ 

extern float NUM_COL; 
extern int OFFSET ; 
extern int mainseq; 



FILE * output = NULL; /*output file initiation*/ 

sprintf (fullname, ns.txt", outfile) ; 

output = fopen( fullname, V); 

if (output == NULL) { 

printf ( "\nFailure to Create Position File.\n"); 
exit (2) ; 
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} 

mainseq = mainseq - 1; /*because sequences are in data input starting at zero*/ 
j = 1; /*lst character is 1*/ 

for(i=0;i < NUM_COL; i++) { 

if ( (* (input + (mainseq * OFFSET + i) ))!='-' ) { 

fprintf {output, "%d\t%d\t%c\n" , i, j , (* (input + (mainseq * OFFSET + i) ) ) ); 
j = j+1; 



f close (output) ; 



/*********************************************/ 
/************ MESSAGE **********************/ 



void 
{ 



message (int number) 



int numread; 

int numwrite; 

char buf [10] ; 

FILE * input file2 = NULL; 



if (number == 1) inputfile2 
if (number == 2) inputfile2 
ESSAGE */ 

if (number == 3) inputfile2 

*/ 

if (number == 4) input file2 
eractions MESSAGE */ 

if (number == 5) inputfile2 
SAGE */ 

if (number == 6) inputfile2 
E */ 



f open ( " scoremsg " , " r " ) ; / * SCORING MESSAGE * / 
fopen( M threshmsg" , "r");/* Threshold uses and warnings M 

fopen{ "predictmsg" , "r");/* Predicition complete MESSAGE 

fopen("eliminatemsg" , "r");/* eliminate intersecting int 

fopenC'misalignmsg", "r");/* misalignment alg. intro MES 

fopenC'degenmsg" f "r" ); /* degenerate predictions MES SAG 



/* opens input file */ 
if (inputfile2 — NULL) printf ( " \nTEXT NOT FOUND: message %d\n" , number ) ; 

else { 

/*read FILE and writes to screen until end of file is reached*/ 
while ( ! feof (inputf ile2) ) 

numread = f read (buf , sizeof (char) , 1 , inputf ile2 ) ; 
numwrite = fwrite (buf , sizeof (char) , 1 , stdout) ; 

} 

fflush( input file2) ; 
f close (inputf ile2) ; 



/*!!!! END OF PROGRAM !!!!!*/ 
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/******************************************************^ 
/******** written By Phillip S. Pang ********/ 

/****************************************************^ 
/******** MD/phD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/****** **************************^ 

/*******************************************************/ 

/******** phillip . pang@stanf ordalumni . org ********/ 
/*******************************************************/ 



7 *******************************************************/ 

/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

; *******************************************************^ 



I ****************************** **********************************/ 
/************************************* ********^ 

/****************************************************************/ 
/* */ 

/* Certain algorithms found within this file may be derivatives*/ 
/* of source code obtained from the book: */ 
/* "Numerical Recipes in C: The Art of Scientific Computing" */ 
/* published by Cambridge University Press. */ 
/* */ 
/****************************************************************/ 
/****************************************************************/ 
/****************************************************************/ 



# include <math.h> 



# include "nrutilp.h" 
#include "definitions .h" 



/**************************************************************/ 
/************ CHI SQUARE function ************************/ 
/**************************************************************/ 

int chisquare(int **nn, int ni, int nj , float *chisq, float *df, double *prob, double *cra 
mrv, float *ccc) 

/*Given a two-dimensional contingency table in the form of an integer array nn [ 1 . .ni ] [ 1 . . n 

this routine returns the chi-square chisq, the number of degrees of freedom df , the signi_ 
cance 

level prob (small values indicating a signi__cant association) , and two measures of associa 
tion, 

Cramer's V (cramrv) and the contingency coe_cient C (ccc) . */ 

/*Since you pass the address, and fill the value, then of course, the address you passed, 
will have a value in it!*/ 

/*this is how multiple values are returned! */ 
{ 

double gammq (double a, double x) ; 
int nnj , nni , j , i,mini j ; 
float sum=0 . 0 , *sumi, *sumj ; 

double expctd, temp; 

extern float CRV_CUTOFF; 
extern int NUM_ROW; 

sumi=vector ( 1 , ni ) ; 
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sumj =vector ( 1 , n j ) ; 
nni=ni ; 
nn j =n j ; 



/*Number of rows*/ 
/*and columns.*/ 



for (i=l;i<=ni;i++) { /*Get the row totals.*/ 

sumi[i]=0.0; 
for ( j=l; j<=nj ; j++) { 

sumi [i] += nn[i] [ j ] ; 
sum +- nn [ i ] [ j ] ; 

if (sumi[i] == 0.0) --nni; /*Eliminate any zero rows by reducing the num*/ 



for (j=l;j<=nj;j++) { /*Get the column totals.*/ 

sumj [j] =0.0; r ., r M 

for (i = l;i<=ni;i++) sumj [3] += nn[i] []]; 

if (sumj[j] == 0.0) — nnj; /*Eliminate any zero columns.* 



/**********************************************************/ 
/*** 2nd Test of Matrix: must be 2x2 after zero removal ***/ 
y** *********************************************** *********/ 

if ((nni < 2) I I (nnj < 2)) { /** Chisquare statistical analysis not possible **/ 

*prob = MEANINGLESS; 
return 0; 

} 

,**********************************************************/ 
/***************** End of 2nd Test ***********************/ 
I *************************************** *******************/ 

*df= (float) (nni*nnj-nni-nnj+l); /*Corrected number of degrees of freed 

om. */ 

*chisq=0 .0; 

for (i=l;i<=ni;i++) { /* Do the chi-square sum.*/ 

for ( j=l; j<=nj ; { 

expctd=sumj [j]*sumi[i] /sum; 

temp==nn [i] [ j 3 -expctd; . 
*chisq += (float) (temp*temp/(expctd+TINY)); /*Here TINY guarantees that any*/ 

/*elim. Div. By zero */ 

} /* eliminated row or column will*/ 

} /*not contribute to the sum.*/ 

*prob=gammq(0.5*(*df),0.5*(*chisq)); /*Chi-square probability function.*/ 

minij = nni < nnj ? nni-1 : nnj-1; 
*cramrv=sqrt { *chisq/ (sum*minij) ) ; 
*ccc= (float) sqrt (*chisq/ (*chisq+sum) ) ; 

/********* i>EST OF N versus SUM for Cramer's V **********/ 

if ( sum < (NUM_ROW/2.0) ) { /*i.e. this matrix represents less then 50% of sequences * 
/ 

*cramrv = 0.0; 
*prob = MEANINGLESS; 

} 



/ 



*********************************************************/ 



f ree_vec tor ( sumj , 1 , n j ) ; 
free_vector ( sumi , 1 , ni ) ; 

return 0; 
} 
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y********************** *********** *****************/ 

/********pUNCTION: gammq ************/ 
^*************************************************/ 



double gammq( double a, double x) 

void gcf (double *gammcf, double a, double x, double *gln) ; 
void gser (double *gamser, double a, double x, double *gln) ; 
void nrerror(char error_text [ 3 ) ; 
double gamser ,gammcf , gin; 

if (x < 0.0 | | a <= 0.0) /*nrerror{ "Invalid arguments in routine gammq");*/ 

return MEANINGLESS ; 
if (x < (a+1.0)) { 

gser(&gamser,a,x,&gln) ; 

return 1.0 -gamser; 
} else { 

gcf (&gammcf ,a,x,&gln) ; 

return gammcf ; 

} 

} 



/**************************************************/ 
/******* * FUNCTION : gcf ************/ 
********************************** *******/ 

void gcf (double *gammcf, double a, double x, double *gln) 
{ 

double gamraln (double xx) ; 

void nrerror (char error_text [ ] ) ; 

int i; 

double an,b, c, d, del ,h; 

*gln=gammln (a) ; 

b=x+l. 0-a; 

c=1.0/FPMIN; 

d=1.0/b; 

h=d; 

for (i=l;i<=ITMAX;i++) { 
an = -i* (i-a) ; 
b += 2.0; 
d=an*d+b; 

if (fabs(d) < FPMIN) d=FPMIN; 
c=b+an/c; 

if (fabs(c) < FPMIN) c=FPMIN; 

d=1.0/d; 

del=d*c; 

h * = del; 

if (fabs(del-l.O) < EPS) break; 

if (i > ITMAX) nrerror ("a too large, ITMAX too small in gcf"); 
*gammcf =exp ( -x+a*log (x) - ( *gln) ) *h; 



/**************************************************/ 
/******** FUN CTION: gser ************/ 
I ***************************************** *********/ 

void gser (double *gamser, double a, double x, double *gln) 
{ 

double gammln (double xx) ; 

void nrerror (char error_text [ ] ) ; 

int n; 

double sum, del, ap; 

*gln=gammln (a) ; 
if (x <= 0.0) { 
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if (x < 0.0) nrerror("x less than 0 in routine gser"); 
*gamser=0 . 0 ; 
return ; 
} else { 
ap=a; 

del=sum=l ,0/a; 
for (n=l;n<=ITMAX;n++) { 
++ap; 

del *= x/ap; 
sum +- del; 

if (fabs(del) < f abs (sum) *EPS) { 

*gamser=sum*exp (-x+a*log (x) - (*gln) ) ; 
return; 

} 

nrerrorC'a too large, ITMAX too small in routine gser") 
return; 

} 

} 

/****** **FOTTCTION: gammln ************/ 

double gammln (double xx) 
{ 

double x,Y,tmp,ser; 

static double cof [6] ={76 . 18009172947146 , -86 . 50532032941677 , 
24.01409824083091,-1.231739572450155, 
0.1208650973866179e-2, -0 . 5395239384953e-5} ; 

int j; 

y=x=xx ; 
tmp=x+5 . 5 ; 

tmp -= (x+0.5)*log(tmp) ; 

ser=l. 0000000001900 15; 

for { j=0; j<=5; j++) ser += cof[j]/++y; 

return -tmp+log (2 . 50662827463 10005*ser/x) ; 
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y*******************************************************/ 
/******** MD/PhD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
y*******************************************************/ 



y******** phillip.pang@stanfordalumni.org ********/ 
y*******************************************************/ 

y*******************************************************/ 
/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



y*******************************************************/ 



/****************************************************************/ 
y*******************************************************^ 

/* V 

/* Certain algorithms found within this file may be derivatives*/ 

/* of source code obtained from the book: */ 

/* "Numerical Recipes in C: The Art of Scientific Computing" */ 

/* published by Cambridge University Press. */ 



y****************************************************************/ 
/******* ***************************************** 



#include <stdio.h> 
# include <stddef.h> 
# include <stdlib.h> 

ttdefine NR_END 1 
#define FREE_ARG char* 



void nrerror(char error_text [ ] ) 

/* Numerical Recipes standard error handler */ 

{ x nx 

fprintf (stderr, "Numerical Recipes run-time error... \n ); 

fprintf (stderr, "%s\n" , error_text) ; 

fprintf (stderr, " . . .now exiting to system. . . \n" ) ; 

exit (1) ; 

} 

double *dvector (long nl, long nh) 

/* allocate a DOUBLE vector with subscript range v[nl..nh] */ 
{ 

double *v; 

v= (double *}malloc( (size_t) ( (nh-nl+l+NR_END) *sizeof (double) } ) 
if <!v) { 

printf ( "FAILURE\n" ) ; 

exit (3) ; 

} 

return v-nl +NR„END ; 

} 



void free_dvec tor (double *v, long nl, long nh) 
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/* free a float vector allocated with vector () */ 
{ 

free ( (FREE_ARG) (v+nl-NR_END) ) ; 

} 

float *vector(long nl , long nh) 

/* allocate a float vector with subscript range v[nl..nn] */ 
{ 

float *v; 

v= (float *)malloc( (size_t) { (nh-nl+l+NR_END) *sizeof ( float) ) ) ; 
if (!v) nrerror < "allocation failure in vector {)") ; 
return v-n 1 +NR_END ; 

} 



int *ivector{long nl, long nh) 

/* allocate an int vector with subscript range v[nl. .nh] / 
{ 

int *v; 

v=(int *) malloc ( (size_t) ( (nh-nl+l+NR_END) *sizeof ( int) ) ) ; 
if (!v) nrerror ("allocation failure in vector {)") ; 
return v-n 1 +HR_END ; 

} 



unsigned char *cvector ( long nl, long nh) 

/* allocate an unsigned char vector with subscript range v[nl. .nh] / 
{ 

unsigned char *v; 

v=(unsigned char *)malloc { (size_t) ( {nh-nl+l+NR_END) *sizeof (unsigned char))) 
if (!v) nrerror ("allocation failure in cvector ( ) " ) ; 
return v-n 1 +NR_END ; 

} 



float **matrix(long nrl, long nrh, long ncl, long nch) 

/* allocate a float matrix with subscript range m[nrl . . nrh] [ncl . . nch] / 

long i, nrow=nrh-nrl+l,ncol=nch-ncl+l; 
float **m; 

/* allocate pointers to rows */ 

m= (float **) malloc ( (size_t) ( (nrow+NR_END)*sizeof (float*) )) ; 
if (!m) nrerror ( "allocation failure 1 in matrix ()") ; 
m += NR„END; 
m -= nrl; 

/* allocate rows and set pointers to them */ 

m[nrl]= (float *) malloc ( (size_t) ( (nrow*ncol+NR_END) *sizeof ( float) )) ; 
if (!m[nrl]) nrerror ( "allocation failure 2 in matrixO"); 
m[nrl] += NR_END; 
m[nrl] -= ncl; 

for ( i=nrl+l ; i<=nrh; i++ ) m [ i ] =m [ i- 1 ] +ncol ; 

/* return pointer to array of pointers to rows */ 
return m; 

} 

int **imatrix(long nrl, long nrh, long ncl, long nch) 

/* allocate a int matrix with subscript range m [nrl.. nrh] [ncl.. nch] */ 

long i, nrow=nrh-nrl+l,ncol=nch-ncl+l; 
int **m; 

/* allocate pointers to rows */ 

m=(int **) malloc ( (size_t) ( (nrow+NR_END) *sizeof (int*) )) ; 
if (!m) nrerror ("allocation failure 1 in imatrix ( ) " ) ; 
m += NR_END; 
m -= nrl; 
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/* allocate rows and set pointers to them */ 

m[nrl]=(int *) malloc ( ( size_t ) { (nrow*ncol+NR_END) *sizeof ( int ) ) ) ; 
if (!m[nrl]) nrerror ( "allocation failure 2 in imatrix ( } " ) ; 
m[nrl] += NR_END; 
m[nrl] -= ncl; 

for ( i=nrl+l ; i<^nrh ; m [ i ] =m [ i- 1 ] +ncol ; 

/* return pointer to array of pointers to rows */ 
return m; 

} 



int **subimatrix(int **a, long oldrl, long oldrh, long oldcl, long oldch, 

long newrl, long newel) V1 
/* point a submatrix [newrl ..] [newel .. 3 to a [oldrl oldrh] [oldcl oldch] */ 

long i, j ,nrow=oldrh~oldrl+l,ncol=oldcl-newcl; 
int **m; 

/* allocate array of pointers to rows */ 

m=(int **) malloc ( (size_t) ( (nrow+NR_END) *sizeof { int* ) ) ) ; 
if (!m) nrerror { "allocation failure in submatrix ()") ; 
m += NR_END; 
m -= newrl; 

/* set pointers to rows */ 

for ( i=oldrl , j =newrl ; i<=oldrh; i++ , j ++ ) m [ j ] =a [ i ] +ncol ; 

/* return pointer to array of pointers to rows */ 
return re- 



float **convert_matrix( float *a, long nrl, long nrh, long ncl, long nch) ^ 
/* allocate a float matrix m[nrl . .nrh] [ncl . .nch] that points to the matrix 
declared in the standard C manner as a[nrow] [ncolj , where nrow=nrh-nrl+l 
and ncol=nch-ncl+l . The routine should be called with the address 
&a[0] [0] as the first argument. */ 
{ 

long i , j , nrow=nrh-nrl+l , ncol=nch-ncl+l ; 
float **m; 

/* allocate pointers to rows */ 

m= (float **) malloc { (size_t) ( (nrow+NR„END) *sizeof (float*) )) ; 
if ( !m) nrerror ( "allocation failure in convert_matrix( ) " ) ; 
m += NR_END ; 
m -= nrl; 

/* set pointers to rows */ 
m[nrl] =a-ncl ; 

for (i=l, j=nrl+l;i<nrow;i++, j++) m[ j ] =m[ j-1] +ncol; 
/* return pointer to array of pointers to rows */ 
return m; 

} 



void free_vec tor {float *v, long nl, long nh) 

/* free a float vector allocated with vector ( ) */ 

{ 

free ( (FREE_ARG) ( v+nl-NR_END) ) ; 

} 



void free_i vector (int *v, long nl, long nh) 

/* free a float vector allocated with vector {) */ 

{ 

free ( (FREE_ARG) ( v+nl-NR_END) ) ; 

} 
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void free_c vector (unsigned char *v, long nl, long nh) 

/* free an unsigned char vector allocated with cvectorO */ 

^ free( (FREE_ARG) ( v+nl-NR_END) } ; 
} 

void free__matrix( float **m, long nrl, long nrh, long ncl, long nch) 
/* free a float matrix allocated by matrix () */ 

^ free( (FREE„ARG) {m [ nrl J +nc 1 -NR_END ) ) ; 
free ( (FREE_ARG) { m+nr 1 -NR„END ) ) ; 

} 

void free_imatrix(int **m, long nrl, long nrh, long ncl, long nch) 
/* free an int matrix allocated by imatrixO */ 

^ f ree ( (FREE_ARG) (m[nrl] +ncl-NR_END) ) ; 
f ree ( (FREE_ARG) (m+nrl-NR_END) ) ; 

} 

void free„subimatrix(int **b, long nrl, long nrh, long ncl, long nch) 
/* free a submatrix allocated by submatrixO */ 

{ free ( (FREE_ARG) ( b+nr 1 -NR_END ) ) ; 
} 

void free_convert_matrix( float **b, long nrl, long nrh, long ncl, long 
/* free a matrix allocated by convert_matrix() */ 

free ( (FREE__ARG) ( b+nr 1 -NR_END ) ) ; 

} 
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/ilie1tieitieit4t written By Phillip S. Pang ********/ 

/****************************************^ 

/******** MD/PhD Candidate, Columbia University ********/ 

/******** College of Physicians and Surgeons ********/ 

/******** Dept. Of Biochemistry and Biophysics ********/ 

/****************************************^ 

phillip.pang@stanfordalumni.org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



^ /* THIS CODE WAS TRANSLATED , OPTIMIZED, and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

r. /* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 

/it */ 

U /* */ 

m /* It has been further modified by Phillip S. Pang */ 

/ * * / 

ru *****************************-****--*******--****-*******-™/ 
^***********************************************************************/ 

o 

J?! #include <math.h> /* Header file for standard math functions */ 

fU #include <stdio.h> /* Header file for standard io functions */ 

P #include " f astexp2 .h" /* Header file for fastexp2 function */ 



/ 



£ s §. Key constants (ref. explanations for function fastexp2 below). 

# define EXPMINVAL (0) 

#define EXPMAXVAL (8) 

#define EXPBITS1 (9) 

#define EXPBITS2 (11) 



Derivative constants 
MULT1 pow (2, EXPBITS1) 

MULT 2 pow (2, EXPBITS2) 

EXPTABLE1 num of elements in exptablel (ref. fastexp2 below) 
EXPTABLE2 num of elements in exptable2 (ref. fastexp2 below) 
nmultl2 multiplicator for fastexp2 

#define MULT1 (2 « (EXPBITS1-1) ) 

#def ine MULT2 {2 « (EXPBITS2-1) ) 

#define EXPTABLE1 (MULT1 * EXPMAXVAL) 
#define EXPTABLE2 (MULT2) 

const float nmultl2 = {- MULT1 * MULT2 ) ; 

/* 

Include file with content of tables exptablel and exptable2 . 
This file is built by call of fastexp2inc (ref. below) . 



#include " f astexp2 . inc" 



FASTEXP2.C 1 



*/ 



/* 

Name: fastexp2ini 

Purpose: Build tables for fastexp2 for given key constants. 

Usage: fastexp2ini ( ) 

Note: Used for development purposes only! 

void fastexp2ini (void) 
{ 

int i; 

for (i = 0; i < EXPTABLEl; i++) 

exptablel [i] = (float) {exp (-( (double) i) /MULTl)); 

} 

for (i = 0; i < EXPTABLE2; i++) 
#if defined (_MSC_VER) && def ined(_M_IX86) 

/* . . 

fastexp2 for VC++ and x86 processors uses coversion ot 
double to nearest int (round mode) so we haven't add 0.5 
to exp argument here. 

exptable2 [i] = (float) (exp (-( (double) i) / (MULTl * MULT2) ) ) ; 
#else /*_MSC„VER _M_IX86*/ 
/* 

fastexp2 for generic processors uses conversion of double 
to lower nearest int (floor mode) so we have add 0.5 
to exp argument for better approximation. 

* / 

exptable2 [ij = (float) (exp {-( (double) i+0 .5) / (MULTl * MULT2 ) ) ) ; 

#endif/*_MSC_VER && _M_IX86*/ 
} 

} 

/* 

Name: fastexp2inc 

Purpose: Print tables for fastexp2 for given key contatnts 
(file fastexp2 . inc) . 

Usage: f astexp2inc ( ) 

Note: Used for development purposes only! 
*/ 

void fastexp2inc (void) 
{ 

int i; 

printf ("/*\n" 

" File with fastexp2 tables for case\n" 

EXPTABLEl = %d, MULTl = %d, EXPTABLE2 = %d, MULT2 = %d\n" 

The file was generated by function fastexp2inc . \n*/\n" , 
EXPTABLEl , MULTl , EXPTABLE2 , MULT2 ) ; 

printf ("\n#if EXPTABLEl ! = %d 1 | MULTl ! = %d || " 
" EXPTABLE2 ! = %d | | MULT2 != %d\n" , 
EXPTABLEl, MULTl , EXPTABLE2 , MULT2) ; 

printf ("\nstatic float exptablel [EXPTABLEl];"); 

printf ("\nstatic float exptable2 [ EXPTABLE2 ] ; " ) ; 

printf ("\n\n#else / *EXPTABLE && MULT*/\n"); 

printf ("\nstatic float exptablel [EXPTABLEl] =\n{"); 
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for (i = 0;;) 

if (i % 4 == 0) printf { 11 \n "); 
printf (" %.7ef", 

(float) (exp (-( (double)i) / MULT1) ) 

if (++i < EXPTABLE1 } printf (","); else break; 

} 

printf ("\n};\n"}; 

printf ("\nstatic float exptable2 [EXPTABLE2] =\n{" ); 

printf { 11 \n#if defined (_MSC_VER) && defined (_M_IX8 6 ) \n" ) ; 

for (i = 0; ; ) 

{ if (i % 4 == 0) printf ("\n "); 

fastexp2 for VC++ and x86 processors uses coversion or 
double to nearest int (round mode) so we haven't add 0.5 
to exp argument here. 

*/ 

printf (" %.7ef\ 

(float) (exp (-( (double)i) / (MULT1 * MULT2 ) ) ) 

if (++i < EXP TABLE 2 ) printf (","); else break; 

} 

printf ("\n\n#else /*__MSC„VER && _M_IX86*/ \n" ) ; 
for (i = 0; ;) 

{ if (i % 4 == 0) printf ( " \n "); 
/* 

fastexp2 for generic processors uses conversion of double 
to lower nearest int (floor mode) so we have add 0.5 
to exp argument for better approximation. 

*/ 

printf {" %.7ef", 

(float) (exp (-( (double) i+0. 5) / (MJLT1 * MJLT2))) 

if (++i } < EXPTABLE2) printf (","); else break; 

} 

printf ("\n\n#endif/*_MSC_„VER && _M_IX86*/ \n} ; \n" ) ; 

printf ( " \n#endif /*EXPTABLE MULT*/\n"); 



Name: fastexp2 

Purpose: Fast table-driven exponent algorithm. 

Usage: fastexp2 (value) 

Result: The exp of value. 

Method: exp (il + i2) = exp (il) * exp (12) 

il is integer part of value and first EXPBITS1 bits 
of fractional part and i2 is successive EXPBITS2 bits 
of fractional part. 

Function gets exp (il) from array exptablel and exp (i2) from 
array exptable2 for values between -EXPMAXVAL and -EXPMINVAL. 
Max relative error is 1 / pow (2, EXPBITS1 + EXPBITS2 + 1) . 
Function returns EXPBITS1 + EXPBITS2 + 1 significant bits. 

If value > -EXMINVAL or <= -EXMAXVAL, standard exp function is called. 
*/ 

double fastexp2 (double value) 

register int il; i2; /* Components of value */ 
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/* Extract valid bits to integer variable */ 
#if defined (_MSC_VER) && def ined(_M_IX86 ) 

/* . , 

fastexp2 for VC++ and x86 processors uses coversion ot 

double to nearest int (round mode) . 

*/ 

asm fid nmultl2 

asm fmul value 

asm fistp il 

#else /*_MSC_VER && _M_IX86*/ 



fastexp2 for generic processors uses conversion of double 
to lower nearest int (floor mode) . 

On x86 it's less efficient then conversion to nearest int. 



*/ 



il = (int) (value * nmultl2) ; 



#endif /*__MSC__VER && _M_IX8 6 * / 



/* Divide valid bits to high and low parts */ 



i2 = il & EXPTABLE2 
il »= EXPBITS2; 



- 1; 



/* Get low BITS2 bits */ 
/* Get high BITS1 bits */ 



if (il >= MULT1 * EXPMINVAL) 

if (il < MULTl * EXPMAXVAL) /* EXPTABLEl */ 

/* Use tables to get exp (il) and exp (i2) */ 
return (exptablel [il] * exptable2 [i2]); 

} 



/* 



Use standard exp function. */ 



return (exp (value) ) ; 



} 
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^*******************************************************/ 
/******** Written By Phillip S. Pang ********/ 

/******************************************************V 

^*******************************************************/ 
/******** HD/phD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/*******************************************************/ 

^********************** ************************ *********/ 

/******** phillip.pang@stanfordalumni.org ********/ 
^*******************************************************/ 



/*******************************************************/ 
/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/*******************************************************/ 



^***********************************************************************/ 
^ ****** *****************************************************************/ 
> + ^^ + ^^ AVt ***************************************************************/ 
/* */ 
/* THIS CODE WAS TRANSLATED , OPTIMIZED, and WRITTEN by RAUL Shakirov */ 
/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 
/* */ 
/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 
/* */ 
/* */ 
/* It has been further modified by Phillip S. Pang */ 
/* */ 
^***************** ********************************************** ********/ 

y***********************************************************************/ 
y^* + ********************************************************************/ 



File with fastexp2 tables for case 

EXPTABLE1 = 4096, MULTl = 512, EXPTABLE2 = 2048, MULT2 
The file was generated by function fastexp2inc. 



2048 



#if EXPTABLE1 != 4096 || MULTl ! = 512 || EXPTABLE2 != 2048 || MULT2 != 2048 

static float exptablel [EXPTABLE1] ; 
static float exptable2 [ EXPTABLE2 ] ; 

#else / *EXPTABLE && MULT* / 



static float exptablel [EXPTABLE1] 
{ 

,9804878e- 
,9028190e- 
,8257547e- 
,7492901e- 
,6734205e- 
,5981413e- 
,5234480e- 
,4493359e- 
,3758006e- 
,3028376e- 
,2304423e~ 
.1586104e- 
.0873376e- 
,0^66193e- 
.9464515e- 
.8768296e- 
,8077496e- 
.7392071e- 



1. 


.0000000e+000f , 


9 


9, 


.9221794e- 


OOlf , 


9 


9. 


.8449644e- 


■OOlf, 


9 


9. 


.7683502e- 


■OOlf , 


9 


9. 


.6923323e- 


OOlf, 


9 


9. 


,6169060e- 


•OOlf, 


9 


9. 


.5420667e- 


■OOlf, 


9 


9. 


,4678097e- 


•OOlf, 


9 


9. 


.3941306e- 


■OOlf, 


9 


9 . 


.3210249e- 


■OOlf, 


9 


9, 


.2484881e- 


■OOlf, 


9 


9. 


,1765158e- 


•OOlf, 


9 


9, 


.1051036e- 


•OOlf, 


9 


9 


.0342471e- 


■OOlf, 


9 


8 


.9639421e- 


■OOlf, 


8 


8, 


,8941841e- 


-OOlf, 


8 


8. 


.8249690e- 


-OOlf, 


8 


8, 


.7562926e- 


-OOlf, 


8 



OOlf, 


9. 


.9610137e- 


OOlf , 


9. 


,9415776e- 


■OOlf , 


OOlf, 


9. 


.8834965e- 


OOlf, 


9. 


,8642116e- 


■OOlf, 


OOlf, 


9. 


.8065825e- 


OOlf, 


9. 


.7874477e- 


■OOlf, 


OOlf, 


9. 


.7302671e- 


OOlf, 


9. 


.7112812e- 


■OOlf, 


OOlf, 


9. 


. 6545455e- 


OOlf, 


9. 


,6357074e- 


■OOlf, 


OOlf, 


9. 


.5794133e- 


■OOlf, 


9. 


.5607217e- 


•OOlf, 


OOlf, 


9. 


,5048657e- 


■OOlf, 


9. 


.4863196e- 


•OOlf, 


•OOlf, 


9, 


,4308982e- 


■OOlf, 


9. 


.4124965e- 


■OOlf, 


OOlf, 


9, 


,3575064e- 


■OOlf, 


9. 


.3392478e- 


•OOlf, 


■OOlf, 


9. 


.2846857e- 


■OOlf, 


9. 


.2665692e- 


•OOlf, 


■OOlf, 


9, 


.2124317e- 


■OOlf, 


9. 


.1944562e- 


-OOlf, 


■OOlf, 


9, 


. 1407400e- 


■OOlf, 


9. 


. 1229044e- 


-OOlf, 


•OOlf, 


9, 


.0696062e- 


•OOlf, 


9. 


.0519094e- 


-OOlf, 


•OOlf, 


8. 


.9990259e- 


■OOlf, 


8, 


.9814669e- 


-OOlf, 


■OOlf, 


8, 


.9289950e- 


•OOlf, 


8, 


.9115725e- 


-OOlf, 


•OOlf, 


8, 


.8595090e- 


■OOlf, 


8, 


. 8422221e- 


-OOlf, 


-OOlf, 


8 


.7905637e- 


-OOlf, 


8 


.7734114e- 


-OOlf, 


-OOlf, 


8 


.7221550e- 


-OOlf, 


8 


,7051362e- 


-OOlf, 
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1 



8.6881506e- 
8.6205388e- 
8.5534533e- 
8.4868898e- 
8.4208443e- 
3553127e- 
2902912e- 
2257756e- 
1617621e- 
0982468e- 
8.0352257e- 
7.9726951e- 
7.9106511e- 
7.8490899e- 
7.7880078e- 
7.7274011e- 
7.6672660e- 
7.6075988e- 
7.5483960e- 
7.4896539e- 
7.4313690e- 
7.3735376e- 
7.3161563e- 
7.2592215e- 
7 .2027298e- 
7.1466777e' 
7.0910618e 
7.0358787e 
6.9811251e 
6.9267976e 
6.8728928e 
6.8194075e 
6.7663385e- 
6.7136824e- 
6.6614361e- 
6.6095964e- 
6.5581601e- 
6 .5071241e- 
6.4564853e- 
6.4062405e- 
6.3563867e- 
6.3069209e- 
6.2578401e- 
6.2091412e- 
1608213e- 
1128774e- 
0653066e- 
0181060e- 
9712727e- 
9248039e- 
8786967e- 
8329484e- 
7875560e- 
7425169e- 
5.6978282e- 
5.6534874e- 
5.6094916e- 
5.5658382e- 
5.5225245e- 
5.4795479e- 
5.4369057e- 
5.3945954e- 
5.3526143e- 
5.3109599e- 
5.2696297e 
5.2286211e 
5.1879317e 
5.1475589e 
5.1075002e 
0677533e 
0283158e 
9891851e 
9503590e 
9118350e 
8736108e 



4.8356840e 



OOlf , 
■OOlf , 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 



8.6711981e- 
8.6037183e- 
8.5367636e- 
8.4703300e- 
8.4044134e- 
8.3390097e- 
8. 2741150e- 
8.2097253e- 
8.1458367e- 
8.0824453e- 
8.0195473e- 
7.9571386e- 
7.8952157e- 
7.8337746e- 
7.7728117e- 
7.7123232e- 
7.6523054e- 
7.5927547e- 
7.5336674e- 
7.4750400e- 
7.4168688e- 
7 .3591502e- 
7.3018809e- 
7.2450572e- 
7.1886757e- 
7.1327330e- 
7.0772256e- 
0221502e- 
9675034e- 
9132819e- 
8594823e- 
8061014e 
7531359e 
7005825e 
6484382e 
5966996e 
6.5453637e- 
6 .4944273e- 
6.4438872e- 
6.3937405e- 
6.3439840e- 
6.2946148e- 
6.2456297e- 
6.1970258e- 
6.1488002e- 
6.1009498e- 
6.0534719e- 
6.0063634e- 
5.9596215e- 
5.9132433e- 
5.8672261e- 
5.8215670e- 
5.7762632e- 
5.7313120e- 
5.6867105e- 
5.6424562e- 
5.5985463e- 
5.5549780e- 
5.5117488e- 
5.4688561e- 
5.4262971e- 
5.3840693e- 
5.3421702e- 
5.3005971e- 
5.2593475e- 
5.2184189e 
5.1778089e 
5.1375148e 
5.0975344e 
5.0578651e 
5.0185044e 
4.9794501e 
4.9406997e 
4.9022509e 
4.8641013e 
4. 8262485e 



OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
-OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 



8.6542787e 
8.5869305e 
8.5201065e 
8.4538025e- 
8.3880145e- 
8.3227385e- 
8 .2579704e- 
8.1937064e- 
8.1299424e- 
8.0666747e- 
8.0038994e- 
7.9416125e- 
7 . 8798104e- 
7.8184892e- 
7.7576453e- 
7 .6972748e- 
7 .6373741e- 
5779396e- 
5189676e- 
4604545e- 
4023968e- 
3447909e- 
7 .2876333e- 
7.2309205e- 
7 .1746490e- 
7.1188155e- 
7.0634164e- 
7.0084485e- 
6.9539083e- 
6.8997925e- 
6.8460979e- 
6.7928212e 
6.7399590e 
6.6875082e 
6.6354656e 
6.5838280e 
6.5325923e- 
6.4817552e- 
6.4313138e- 
6.3812649e- 
6.3316055e- 
6.2823326e- 
6.2334431e- 
6.1849341e- 
6.1368025e- 
6.0890455e- 
6.0416602e- 
5.9946436e- 
9479929e- 
9017053e- 
8557779e- 
8102078e- 
5.7649924e- 
5.7201289e- 
5.6756145e- 
5.6314465e- 
5.5876223e- 
5.5441391e- 
5.5009942e- 
4581851e- 
4157092e- 
3735638e- 
3317464e- 
2902544e- 
5.2490854e- 
5.2082366e- 
5.1677058e- 
5.1274904e 
5.0875880e 
5.0479961e 
5.0087122e 
4.9697341e 
4.9310593e 
4.8926855e 
4.8546104e 
4.8168315e 



OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
OOlf, 
OOlf, 



8.6373923e- 
8.5701756e- 
8.5034819e- 
8.4373073e- 
8.3716477e- 
8.3064990e- 
8.2418573e- 
8.1777186e- 
8.1140791e- 
8.0509349e- 



9882820e- 
9261167e- 
8644352e- 
8032336e- 
7425084e- 
6822557e- 
6224719e- 
5631534e- 
7.5042965e- 
7.4458976e- 
7.3879531e- 
7 .3304596e- 
7.2734135e- 
7.2168114e- 
7.1606497e- 
7.1049251e- 
7.0496341e- 
6. 9947734e- 
6.9403397e- 
6.8863295e- 
6.8327397e- 
6.7795669e- 
6.7268079e 
6.6744594e 
6.6225184e 
6.5709815e 
6.5198458e- 
6.4691079e- 
6.4187649e- 
6.3688137e- 
6.3192512e- 
6.2700744e- 
6.2212803e- 
6.1728659e- 
6.1248283e- 
6.0771645e- 
6.0298716e- 
5.9829468e- 
5.9363871e- 
5.8901898e- 
5.8443520e- 
5.7988709e- 
5.7537437e- 
5.7089677e- 
5.6645402e- 
5.6204584e- 
5.5767196e- 
5.5333212e- 
5.4902606e- 
5.4475350e- 
5.4051420e- 
5.3630788e- 
5.3213430e- 
5.2799320e- 
5.2388432e- 
5.1980742e- 
5.1576225e- 
5.1174856e 
5.0776610e 
5.0381463e 
4.9989391e 
4.9600371e 
4.9214378e 
4.8831388e 
4.8451380e 
4.8074328e 



OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
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4.7980524e- 
4.7607137e- 
4.7236655e- 
4.6869057e- 
4.6504319e- 
4.6142419e- 
4.5783336e- 
4.5427047e- 
4.5073531e- 
4.4722766e- 
4.4374731e- 
4.4029404e- 
4.3686765e- 
4.3346791e- 
4,3009464e- 
4.2674762e- 
4.2342664e- 
,2013151e- 
.1686202e- 
,1361797e- 
,1039917e- 
.0720542e- 
.0403652a- 
4.0089229e- 
3.9777252e- 
3.9467703e- 
3.9160563e- 
3.8855813e- 
3.8553434e- 
3.8253409e- 
3.7955719e- 
3.7660345e- 
3.7367270e- 
3.7076476G- 
3 .6787944e- 
3.6501658e- 
3.6217600e- 
3.5935752e- 
3.5656098e- 
3.5378620e- 
.5103302e- 
.4830125e- 
.4559075e- 
.4290134e- 
.4023286e- 
3 .3758515e- 
3.3495804e- 
3.3235138e- 
3.2976500e- 
3.2719875e- 
3.2465247e- 
3.2212600e- 
3.1961920e- 
3.1713190e- 
3.1466396e- 
3.1221523e- 
.0978555e- 
.0737478e- 
.0498277a- 
.0260937e- 
.0025445e- 
.9791785e- 
.9559944e- 
,9329906e- 
.9101659e- 
,8875188e- 
.8650480e- 
.8427520e- 
.8206295e- 
.7986792e- 
2.7768997e- 
2.7552897e- 
2.7338479e- 
2.7125729e- 
2.6914635e- 
2.6705184e- 



■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
•OOlf 
OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 



4.7886904e- 
4-7514245e- 
4.7144486e- 
4.6777605e- 
4.6413579e- 
4.6052385e- 
4.5694003e- 
4.5338409e- 
4.4985583e- 
4.4635502e- 
4.4288146e- 
4.3943493e- 
4.3601522e- 
4.3262212e- 
4.2925543e- 
4.2591494e- 
4.2260044e- 
4.1931174e- 
4.1604863e- 
4.1281091e- 
4.0959839e- 
4.0641087e- 
4.0324816e- 
4.0011006e- 
3.9699638e- 
3.9390693e- 
3.9084152e- 
3.8779997e- 
3.8478208e~ 
3.8178768e- 
3.7881659e- 
3.7586861e- 
3.7294358e- 
.7004131e- 
.6716163e- 
.6430435e- 
,6146931e- 
.5865634e- 
.5586525e- 
,5309589e- 
.5034807e- 
3.4762164e- 
3.4491643e- 
.4223227e- 
,3956900e- 
.3692645e- 
,3430447e- 
.3170289e- 
3.2912156e- 
3.2656031e- 
.2401900e- 
,2149746e- 
.1899555e- 
.1651311e- 
.1404998e- 
,1160603e- 
3.0918109e- 
3.0677502e- 
3.0438768e- 
3.0201892e- 
2.9966859e- 
2.9733655e- 
2 .9502266e- 
2.9272677e- 
2.9044875e- 
,8818846e- 
,8594576e- 
,8372052e- 
,8151259e- 
,7932184e- 
.7714814e- 
2.7499135e- 
2.7285135e- 
2.7072801e- 
2.6862119e- 
2.6653076e- 



OOlf, 


4 


.7793466e- 


OOlf 


OOlf, 


4 


.7421534e- 


OOlf 


OOlf, 


4 


7052497e- 


OOlf 


OOlf, 


4 


,6686332e- 


OOlf 


OOlf, 


4 


6323016e- 


OOlf 


OOlf, 


4 


5962527e- 


OOlf 


OOlf, 


4 


.5604844e- 


OOlf 


OOlf, 


4 


5249944e- 


OOlf 


OOlf, 


4 


4897806e- 


OOlf 


OOlf, 


4 


4548409e- 


OOlf 


OOlf, 


4 


4201730e- 


OOlf 


OOlf, 


4 


3857750e- 


OOlf 


OOlf, 


4 


.3516446e- 


OOlf 


OOlf, 


4 


3177798e- 


OOlf 


OOlf, 


4 


2841786e- 


OOlf 


OOlf, 


4 


2508389e- 


OOlf 


OOlf, 


4 


.2177586e- 


OOlf 


OOlf, 


4 


.1849357e- 


OOlf 


OOlf, 


4 


.1523683e- 


OOlf 


OOlf, 


4 


1200543e- 


OOlf 


OOlf, 


4 


.0879918e- 


OOlf 


OOlf, 


4 


,0561788e- 


OOlf 


OOlf, 


4 


.0246133e- 


OOlf 


OOlf, 


3 


.9932936e- 


OOlf 


OOlf, 


3 


.9622175e- 


-OOlf 


OOlf, 


3 


9313833e- 


OOlf 


OOlf, 


3 


,90Q7890e- 


OOlf 


OOlf, 


3 


. 8704328e- 


OOlf 


OOlf, 


3 


,8403129e- 


•OOlf 


OOlf, 


3 


. 8104273e- 


OOlf 


OOlf, 


3 


7807743e- 


-OOlf 


OOlf, 


3 


. 7513521e- 


OOlf 


OOlf, 


3 


7221589e- 


OOlf 


OOlf, 


3 


. 6931928e- 


OOlf 


OOlf, 


3 


. 6644522e- 


•OOlf 


OOlf, 


3 


. 6359352e- 


OOlf 


OOlf, 


3 


6076401e- 


•OOlf 


OOlf, 


3 


. 5795652e- 


OOlf 


OOlf, 


3 


5517088e- 


OOlf 


OOlf, 


3 


. 5240692e- 


OOlf 


OOlf, 


3 


,4966447e- 


OOlf 


OOlf, 


3 


. 4694336e- 


OOlf 


OOlf, 


3 


4424342e- 


OOlf 


OOlf, 


3 


. 4156450e- 


OOlf 


OOlf, 


3 


,3890642e- 


OOlf 


OOlf, 


3 


. 3626903e- 


OOlf 


OOlf, 


3 


.3365217e- 


OOlf 


OOlf, 


3 


. 3105566e- 


-OOlf 


OOlf, 


3 


.2847937e- 


OOlf 


OOlf, 


3 


.2592312e- 


OOlf 


OOlf, 


3 


.2338677e- 


OOlf 


OOlf, 


3 


.2087015e- 


OOlf 


OOlf, 


3 


. 1837312e- 


OOlf 


OOlf, 


3 


. 1589552e- 


-OOlf 


OOlf, 


3 


,1343720e- 


OOlf 


OOlf, 


3 


. 1099801e- 


OOlf 


OOlf, 


3 


. 0857781e- 


OOlf 


OOlf, 


3 


. 0617644e- 


OOlf 


OOlf, 


3 


. 0379375e- 


OOlf 


OOlf, 


3 


. 0142961e- 


OOlf 


OOlf, 


2 


9908387e- 


OOlf 


OOlf, 


2 


9675638e- 


OOlf 


OOlf, 


2 


9444700e- 


OOlf 


OOlf, 


2 


,9215560e- 


OOlf 


OOlf, 


2 


. 8988202e- 


OOlf 


OOlf, 


2 


8762614e- 


OOlf 


OOlf, 


2 


8538782e- 


OOlf 


OOlf, 


2 


8316691e- 


OOlf 


OOlf, 


2 


8096329e- 


OOlf 


OOlf, 


2 


7877682e- 


OOlf 


OOlf, 


2 


7660736e- 


OOlf 


OOlf, 


2 


7445478e- 


OOlf 


OOlf, 


2 


7231896e- 


OOlf 


OOlf, 


2 


7019976e- 


OOlf 


OOlf, 


2 


6809705e- 


OOlf 


OOlf, 


2 


6601070e~ 


OOlf 



4.7700211e- 
4.7329005e- 
4.6960687e- 
4.6595236e- 
4.6232629e- 
4.5872844e- 
4.5515859e- 
4,5161652e- 
4.4810201e- 
4.4461485e- 
4.4115483e- 
4.3772174e- 
4.3431536e- 
4.3093549e- 
4.2758192e- 
4.2425445e- 
4.2095288e- 
4.1767700e- 
4.1442661e~ 
4.1120152e- 
4.0800152e- 
4.0482643e- 
4.0167604e- 
3.9855018e- 
3.9544863e- 
3.9237123e- 
3.8931777e- 
3.8628808e- 
3.8328196e- 
3.8029924e- 
3.7733972e- 
3.7440324e- 
3.7148961e- 
3.6859866e- 
3.6573020e- 
3.6288407e- 



6006008e- 
.5725807e- 
,5447787e- 
,5171930e- 
,4898220e- 
.4626639e- 
.4357173e- 
.4089803e- 
,3824514e- 
.3561290e- 
3.3300114e- 
3.3040970e- 
3.2783843e- 
3.2528717e- 
3.2275577e- 
3.2024406e- 
3.1775190e- 
3.1527914e- 
3.1282562e- 
3.1039119e- 
3.0797571e- 
3.0557902e- 
3.0320099e- 
3.0084146e- 
2.9850029e- 
2.9617734e- 
2.9387247e- 
2.9158554e- 
2.8931640e- 
2.8706492e- 
2.8483097e- 
2.8261439e- 
2.8041507e- 
2.7823286e- 
2.7606764e- 
2.7391926e- 
2.7178761e- 
2.6967254e- 
2.6757393e- 
2.6549165e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
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2.6497362e-001f , 2 . 6445660e~001f , 
2 . 6291158e-001f , 2 . 6239858e-001f , 
2 . 6086559e-001f , 2 . 603 5658e-001f , 
2 .5883551e-001f , 2 . 5833047e-001f , 
2 .5682124e-001f , 2 . 56320 13e-00 If , 
2.5482264e-001f , 2 . 5432543e-001f , 
2.5283960e-001f , 2 . 5234625e-001f , 
2 . 5087198e-001f , 2 . 50382 48e-001f , 
2 .4891968e-001f , 2 . 4843398e-001f , 
2.4698257e-001f , 2 . 4650066e-001f , 
2 .4506054e-001f , 2 . 4458237e-001f , 
2.4315346e-001f , 2 . 4267902e-001f , 
2.4126123e-001f , 2 . 4079047e-001f , 
2.3938372e-001f , 2 . 3 891663e-001f , 
2 .3752082e-001f , 2 . 370573 6e-001f , 
2 .3567242e-001f , 2 . 3521257e-001f , 
2.3383840e-001f , 2 . 3338213e-001f , 
2 .32 01866e-001f , 2 . 3156594e-001f , 
2 ,3021307e-001f , 2 . 2976388e-001f , 
2 ,2842154e-001f , 2 . 27 97584e-001f , 
2 . 26643 95e-001f , 2 . 262 0172e-001f , 
2.2488019e-001f , 2 . 2444140e-001f , 
2.2313 016e-001f , 2 . 2269478e-001f , 
2.2139375e-001f , 2 . 2096176e-001f , 
2.1967 085e-001f , 2 . 192 4222e-001f , 
2 . 1796136e-001f , 2 . 1753607e-001f , 
2.1626517e-001f , 2 . 15843 19e-001f , 
2.1458218e-001f , 2 . 1416348e-001f , 
2 . 1291229e-001f , 2 . 1249685e-001f , 
2 .1125539e-001f , 2 . 1084318e-001f , 
2 . 0961139e-001f , 2 . 092 023 9e-001f , 
2.0798018e-001f , 2 . 0757436e-001f , 
2 . 0636166e-001f , 2 . 05959 Ole-OOlf , 
2 ,0475574e-001f , 2 . 043 5622e-001f , 
2 .0316232e-001f , 2 . 0276591e-001f , 
2 .015813 Oe-OOlf , 2 . 0118797e-001f , 
2 . 00012 58e-001f , 1 . 9962231e-001f , 
1.9845607e-001f , 1 . 9806884e-001f , 
1.9691168e-001f , 1 . 9652746e~001f , 
1.9537930e-001f , 1 . 9499807e-001f , 
1 .9385884e-001f , 1 . 93 4805 8e-001f , 
1.9235022e-001f , 1 . 9197490e-001f , 
1.9085334e-001f , 1 . 9048094e-001f , 
1.8936811e-0 01f , 1 . 8899861e-001f , 
1.8789443e-001f , 1 . 87 52781e-001f , 
1.8643223e-001f , 1 . 8606846e-001f , 
1.8498140e-001f , 1 . 8462046e-001f , 
1.8354186e-001f , 1 . 8318373e-001f , 
1. 82113 53e-001f , 1 . 8175819e-001f , 
1.8069631e-001f , 1 . 8034373e-001f , 
1.792 9012e-0 01f , 1 . 7894029e-001f , 
1 .7789487e-001f , 1 . 775477 6e-001f , 
1.7651048e-001f , 1 . 7616607e-001f , 
1.7513 687e-001f , 1 . 7479514e-001f , 
1.7377394e-001f , 1 . 7343487e-001f , 
1.7242162e-001f , 1 . 7208519e-001f , 
1.7107983e-001f , 1 . 7 074601e-001f , 
1.6974847e-001f , 1 . 6941726e-001f , 
1. 6842748e-001f , 1 . 6809884e-001f , 
1.6711677e-001f , 1 . 6679069e-001f , 
1.6581626e-001f , 1 . 6549271e-001f t 
1.6452586e-001f , 1 . 6420484e-001f , 
1.6324551e-001f , 1 . 6292698e-001f , 
1.6197513e-001f , 1 . 6165908e-001f , 
1.6071463e-001f , 1 . 6040104e-001f , 
1.5946393e-001f , 1 . 5915279e-001f , 
1.5822298e-001f , 1 . 579142 5e-001f , 
1.5699168e-001f , 1 . 5668535e-001f , 
1.5576996e-001f , 1 . 5546601e-001f , 
1.5455774e-001f , 1 . 542 5617e-001f , 
1.53 35497e-001f , 1 . 53 05574e-001f , 
1.5216155e-001f , 1 . 5186465e-001f f 
1.5097742e-001f , 1 . 5068283e-001f f 
1. 49802 50e-001f , 1 . 4951021e-001f f 
1.4863673e-001f , 1 . 4834671e-001f , 
1.4748003e-001f , 1 . 471922 6e-001f , 



2.6394059e-001f , 2 . 6342558e-001f , 
2 .6188659e-001f , 2 . 613 7559e-0 01f , 
2.5984857e-001f , 2 . 5934155e-001f , 
2 .57 82641e-001f , 2 . 5732333e-001f , 
2 .5581999e-001f , 2 . 5532083e-001f , 
2 .5382918e-001f , 2 . 5333391e-001f , 
2 .5185387e-001f , 2 . 5136245e-001f , 
2 . 49893 93e-001f , 2 . 494063 3e-00 If , 
2 .4794924e-001f , 2 . 4746543e-001f , 
2 .4601968e-001f , 2 . 4553964e-001f , 
2.4410514e-001f , 2 . 4362884e-001f , 
2 .4220550e-001f , 2 . 4173290e-001f , 
2.4032 064e-001f , 2 . 3985172e-001f , 
2.3845045e-001f , 2 . 3798518e-001f , 
2 .3 659481e-001f , 2 . 36133 16e-001f , 
2.3475362e-001f , 2 . 3429556e-001f , 
2 .3292675e-001f , 2 . 3247226e-001f , 
2 .3111410e-001f , 2 . 3066315e-001f , 
2.2931556e-001f f 2 . 2 886811e-001f , 
2 .2753101e-001f , 2 . 2708705e-001f , 
2 .2576035e-001f , 2 . 2531984e-001f , 
2 . 24003 47e-001f , 2 . 23 56639e-0 01f , 
2.2226026e-001f , 2 . 2182658e-001f , 
2.2053062e-001f , 2 . 201003 le-OOlf , 
2 .1881443e-001f , 2 . 183 8748e-001f , 
2 .1711160e-001f , 2 . 1668797e-001f , 
2.1542203e-001f , 2 . 1500169e-001f , 
2 ,1374560e-001f , 2 . 1332854e-001f , 
2.1208222e-001f , 2 . 1166840e-001f , 
2 .1043178e-001f , 2 . 1002118e-001£, 
2 . 0879419e-001f , 2 . 083 8679e-001f , 
2.0716934e-001f , 2 . 0676511e-001f , 
2 . 05 55714e-0 01f , 2 . 0515605e-0 01f , 
2 .0395748e-001f , 2 . 03 5595 le-OOlf, 
2 .0237027e-001f , 2 . 0197540e-001f , 
2 . 0079541e-0 01f , 2 . 0 040361e-001f , 
1.9923281e-001f , 1 . 9884406e-001f , 
1.9768237e-001f , 1 . 9729664e-001f , 
1.9614399e-001f , 1 . 9576127e-001f , 
1.9461758e-001f , 1 - 9423784e-001f , 
1 .9310306e-001f , 1 . 9272627e-001f , 
1.9160032e-001f , 1 . 9122646e-001f , 
1.9010927e-001f , 1 . 8973833e-001f , 
1. 8862 983e-0 01f , 1 . 882 6177e-001f , 
1.8716190e-001f , 1 . 8679671e-001f , 
1. 8570540e-0 01f , 1 . 85343 04e-001f , 
1.8426023e-001f , 1 . 8390069e-001f , 
1.8282630e-001f , 1 . 8246957e-001f , 
1, 8140354e-001f , 1 . 8104958e-001f , 
1.7999184e-001f , 1 . 7964064e-001f , 
1.7859113e-001f r 1 . 78242 66e-001f , 
1.7720133e-001f r 1 . 7685557e-001f , 
1.7582234e-001f , 1 . 7 547927e-001f , 
1.7445408e-001f , 1.7411368e-001f , 
1.7309646e-001f , 1 . 7275871e-001f , 
1.7174942e-001f , 1 . 7141429e-001f , 
1.7041285e-001f , 1 . 7008034e-001f , 
1.6908669e-001f , 1 . 6875676e-001f , 
1. 6777 084e-001f , 1 . 6744349e-001f , 
1.6646524e-001f , 1 . 6614043e-001f , 
1.6516980e-001f , 1 . 6484752e-001f , 
1.6388444e-001f , 1 . 6356466e-001f , 
1.6260908e-001f , 1 . 6229179e-001f , 
1.6134364e-001f , 1 . 6102883e-001f , 
1. 6008806e-001f , 1 . 5977569e-001f , 
1. 5884224e-001f , 1 . 58532 31e-001f , 
1.5760612e-001f , 1 . 5729860e-001f , 
1. 5637 962e-0 01f , 1 . 56 07449e~001f , 
1.5516267e-001f , 1 . 5485991e-001f , 
1.5395518e-001f , 1 . 53 65478e-001f , 
1.5275709e-001f , 1 . 5245903e-001f , 
1.5156833e-001f , 1 . 5127258e-001f , 
1.5038881e-001f , 1 . 5009537e-001f , 
1.4921848e-001f , 1 . 4892732e-001f , 
1.4805725e-001f , 1 . 4776836e-001f , 
1.469 05 06e-001f , 1 . 4661842e-0 01f , 



FASTEXP2 . INC 4 



1 


4633233e- 


OOlf , 


1 


4519356e- 


OOlf, 


1 


4406366e- 


OOlf, 


1 


4294255e- 


OOlf, 


1 


4183016e- 


OOlf , 


1 


4072643e- 


OOlf, 


1 


3963129e- 


OOlf, 


1 


3854467e- 


OOlf, 


1 


3746650e- 


OOlf, 


1 


3639673e- 


OOlf, 


1. 


3533528e- 


OOlf, 


1 . 


3428210e- 


OOlf, 


1 


3323710e- 


OOlf, 


1 


3220024e- 


OOlf, 


1 


3117145e- 


OOlf, 


1 


3015067e- 


OOlf, 


1 


2913783e- 


OOlf, 


1 


2813287e- 


OOlf, 


1 


2713573e- 


OOlf, 


1 


2614635e- 


OOlf, 


1 


2516468e- 


OOlf, 


1 


2419064e- 


OOlf, 


1 


2322418e- 


OOlf, 


1 


2226524e- 


OOlf, 


1 


2131376e- 


OOlf, 


1 


2036969e- 


OOlf, 


1 


1943297e- 


OOlf, 


1 


1850353e- 


OOlf, 


1 


1758133e- 


OOlf, 


1 


1666631e- 


OOlf, 


1 


1575840e- 


-OOlf, 


1 


1485756e- 


OOlf, 


1 


1396373e- 


-OOlf, 


1 


1307686e- 


-OOlf, 


1 


1219689e- 


-OOlf, 


1 


1132377e- 


-OOlf, 


1 


.1045744e- 


-OOlf, 


1 


.0959785e- 


-OOlf, 


1 


.0874496e- 


-OOlf, 


1 


.0789870e- 


-OOlf, 


1 


.0705902e- 


-OOlf, 


1 


.0622588e- 


-OOlf, 


1 


.0539922e- 


-OOlf, 


1 


. 0457900e- 


-OOlf, 


1 


. 0376516e- 


-OOlf, 


1 


. 0295765e- 


-OOlf, 


1 


. 0215643e- 


-OOlf, 


1 


. 0136144e- 


-OOlf, 


1 


.0057264e- 


-OOlf, 


9 


.9789980e- 


-002f , 


9 


.9013408e- 


-002f , 


9 


.8242880e- 


-002f , 


9 


.7478348e- 


-002f , 


9 


.6719765e- 


-002f , 


9 


.5967086e- 


•002f , 


9 


.5220264e- 


-002f , 


9 


.4479254e- 


-002f , 


9 


,3744011e- 


-002f , 


9 


.3014489e- 


-002f , 


9 


.2290645e- 


-002f , 


9 


.1572433e- 


-002f , 


9 


.0859811e- 


-002f , 


9 


.0152734e- 


-002f , 


8 


.9451160e- 


-002f , 


8 


.8755046e- 


-002f , 


8 


.8064348e- 


-002f , 


8 


.7379026e- 


-O02f , 


8 


.6699037e- 


-002f , 


8 


.6024340e- 


-002f , 


8 


.5354893e- 


-002f , 


8 


. 4690656e- 


-002f , 


8 


.4031588e- 


-002f , 


8 


.3377649e- 


-002f , 


8 


.2728799e- 


-002f , 


8 


.2084999e- 


-002f , 


8 


.1446208e- 


-002f , 



1.4604681e- 
1.4491026e- 
1.4378256e- 
1.4266363e- 
1.4155342e- 
1.4045184e- 
1.3935884e- 
1.3827434e- 
1.3719828e- 
1.3613059e- 
1.3507121e- 
1.3402008e- 
1.3297713e- 
,3194229e- 
,3091551e- 
,2989672e- 
,2888585e- 
,2788286e- 
,2688766e- 
1.2590022e- 
1.2492045e- 
1.2394831e- 
1.2298374e- 
1.2202667e- 
1.2107705e- 
1.2013483e- 
1.1919993e- 
1.1827231e- 
1.1735190e- 
,1643867e- 
,1553253e- 
,1463345e- 
,1374137e- 
,1285622e- 
1.1197797e- 
1.1110655e- 
,1024191e- 
.0938400e- 
.0853277e- 
,0768816e- 
,0685013e- 
,0601861e- 
.0519357e- 
.0437494e- 
.0356269e- 
.0275676e- 
.0195710e- 
.0116367e- 
.0037640e- 
9.9595268e- 
9.8820212e- 
9.8051187e- 
9.7288146e- 
9.6531044e- 
9.5779833e- 
9.5034469e- 
9.4294905e- 
9.3561096e- 
9.2832998e- 
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8.0812389e-002f , 
8.0183502e-002f , 
7.9559509e-002f , 
7.8940372e-002f , 
7.8326053e-002f , 
7.7716515e-002f , 
7.7111720e-002f , 
7.6511632e-002f , 
7.5916214e-002f , 
7.5325429e-002f , 
7.4739242e~002f , 
7.4157616e-002f , 
7.3580517e-002f , 
7.3007909e-002f , 
7.2439757e-002f , 
7.1876026e-002f , 
7.1316683e-002f , 
7.0761692e-002f , 
7.0211020e-002f , 
6.9664634e-002f , 
6.9122499e-002f , 
6.8584583e-002f , 
6.8050854e-002f , 
6.7521278e-002f , 
6.6995823e-002f , 
6.6474458e-002f , 
6.5957149e-002f , 
6.5443867e-002f , 
6.4934579e-002f , 
6.4429254e-002f , 
6.3927861e-002f , 
6.3430371e-002f , 
6.29367526-0021, 
6.2446974e-002f , 
6.1961008e-002f , 
6.1478823e-002f , 
6.1000391e-002f , 
6.0525682e-002f , 
6.0054668e-002f , 
5.9587319e-002f , 
5.9123607e-002f , 
5.8663503e-002f , 
5.8206980e-002f , 
5.7754010e-002f , 
5.7304564e-002f , 
5.6858617e-002f , 
5.6416140e~-002f , 
5.5977106e-002f , 
5.5541488e-002f , 
5.5109261e-002f , 
5.4680397e-002f , 
5.4254871e-002f , 
5.3832656e-002f , 
5.3413727e-002f , 
5.2998058e-002f , 
5.2585624e-002f , 
5.2176400e-002f , 
5.1770360e-002f , 
5.1367480e-002f , 
5.0967735e-002f , 
5.0571101e-002f , 
5.0177553e-002f , 
4.9787068e-002f , 
4.9399622e-002f , 
4.9015191e-002f , 
4.8633752e-002f , 
4.8255281e-002f , 
4.7879756e-002f , 
4.7507153e-002f , 
4.7137449e-002f , 
4.6770622e-002f , 
4.6406651e-002f , 
4.6045511e-002f , 
4.5687182e-002f , 
4.5331642e-002f , 
4.4978868e-002f , 



8.0654706e-002f , 
8.0027046e~002f , 
7.9404271e-002f , 
7.8786342e-002f , 
7.8173222e-002f , 
7.7564873e-002f , 
7.6961258e-002f , 
7.6362341e-002f , 
7.5768084e-002f , 
7.5178452e-002f , 
7.4593409e-002f , 
7.4012919e-002f , 
7.3436946e-002£ , 
7.2865455e-002f , 
7.2298411e-002f , 
7.1735781e-002f , 
7.1177528e-002f , 
7.0623620e-002f , 
7.0074023e-002f , 
6.9528703e-002f , 
6.8987626e-002f , 
6.8450760e-002f , 
6.7918072e-002f , 
6.7389529e-002f , 
6.6865100e-002f , 
6.6344751e-002f , 
6.5828453e-002f , 
6.5316171e-002f , 
6.4807877e-002f , 
6.4303538e-002f , 
6.3803124e-002f , 
6.3306604e-002f , 
6.2813948e-002f , 
6.2325126e-002f , 
6.1840108e-002f , 
6.1358865e-002f , 
6.0881366e-002f , 
6.0407584e-002f , 
5.9937488e-002f , 
5.9471051e-002f , 
5.9008243e-002f , 
5.8549038e-002f , 
5.8093405e-002f , 
5.7641319e-002f , 
5.7192751e-002f , 
5.6747673e-002f , 
5.6306059e-002f , 
5.5867882e-002f , 
5.5433115e-002f , 
5.5001731e-002f , 
5.4573704e-002f , 
5.4149008e-002f , 
5.3727617e-002f , 
5.3309505e-002f , 
5.2894648e-002f , 
5.2483018e-002f , 
5.2074592e-002f , 
5.1669344e-002f , 
5.1267250e-002f , 
5.0868285e-002f , 
5.0472425e-002f , 
5.0079646e-002f , 
4.9689923e-002f , 
4.9303233e-002f , 
4.8919552e-002f , 
4.8538857e-002f , 
4.8161125e-002f , 
4.7786332e-002f , 
4.7414456e-002f , 
4.7045473e-002f , 
4.6679363e-002f , 
4.6316101e-002f , 
4.5955666e-002f , 
4.5598036e-002f , 
4.5243190e-002f , 
4.4891104e-002f , 



8.0497331e-002f , 
7.9870896e-002f , 
7.9249336e-002f , 
7.8632612e-002f , 
7.8020689e-002f , 
7.7413527e-002f , 
7 .6811090e-002f , 
7.6213341e-002f , 
7.5620244e-002f , 
7.5031763e-002f , 
7.4447861e-002f , 
7.3868503e-002f , 
7.3293654e-002f , 
7.2723278e-002f , 
7.2157341e-002f , 
7 .1595808e-002f , 
7.1038645e-002f , 
7.0485818e-002f , 
6.9937293e-002f , 
6.9393037e-002f , 
6.8853016e-002f , 
6.8317198e-002f , 
6.7785549e-002f , 
6.7258038e-002f , 
6.6734631e-002f , 
6.6215298e-002f , 
6.5700007e-002f , 
6.5188725e-002f , 
6.4681423e-002f , 
6.4178068e-002f , 
6.3678630e-002f , 
6.3183079e-002f , 
6.2691384e-002f , 
6.2203516e-002f , 
6.1719445e-002f , 
6.1239140e-002f , 
6.0762573e-002f , 
6.0289715e-002f , 
5.9820537e-002f , 
5.9355010e-002f , 
5.8893105e-002f , 
5.8434796e-002f , 
5.7980053e-002f , 
5.7528848e-002f , 
5.7081X55e-002f , 
5.6636946e-002f , 
5.6196194e-002f , 
5.5758872e-002f , 
5.5324953e-002f , 
5.4894410e-002f , 
5.4467219e-002f , 
5.4043351e-002f , 
5.3622783e-002f , 
5.3205487e-002f , 
5.2791439e-002f , 
5.2380612e-002f , 
5.1972983e-002f , 
5.1568526e-002f , 
5.1167217e-002f , 
5.0769030e-002f , 
5.0373943e-002f , 
4.9981929e-002f , 
4.9592967e-002f , 
4.9207031e-002f , 
4.8824099e-002f , 
4.8444147e-002f , 
4.8067152e-002f , 
4.7693090e-002f , 
4.7321940e-002f , 
4.6953677e-002f # 
4.6588281e-002f , 
4.6225728e-002f , 
4.5865997e-002f , 
4.5509065e-002f , 
4.5154910e-002f , 
4.4803512e-002f , 



8.0340263e-002f , 
7.9715050e-002f , 
7.9094703e-002f , 
7.8479183e-002f , 
7.7868453e-002f , 
7.7262476e-002f , 
7 .6661215e-002f , 
7.6064632e-002f , 
7.5472693e-002f , 
7 .4885359e-002f , 
7.4302597e-002f # 
7.3724370e-002f , 
7.3150642e-002f , 
7.2581379e-002f , 
7.2016546e-002f , 
7.1456109e-002f , 
7.0900033e-002f , 
7.0348285e-002f , 
6.9800830e-002f , 
6.9257636e-002f , 
6.8718669e-002f , 
6.8183896e-002f , 
6.7653284e-002f r 
6.7126802e-002f , 
6.6604417e-002f , 
6.6086098e-002f , 
6.5571812e-002f , 
6.5061528e-002f , 
6.4555215e-002f , 
6.4052842e-002f , 
6.3554379e-002f , 
6.3059795e-002f f 
6.2569060e-002f , 
6.2082144e-002f , 
6.1599016e-002f , 
6.1119649e-002f , 
6.0644012e-002f , 
6.0172077e-002f , 
5.9703814e-002f f 
5.9239195e-002f , 
5.8778192e-002f , 
5.8320777e-002f , 
5.7866921e-002f , 
5.7416597e-002f , 
5.6969777e-002f , 
5.6526435e-002f , 
5.6086543e-002f , 
5.5650074e-002f , 
5.5217001e-002f , 
5.4787299e-002f , 
5.4360941e-002f , 
5.3937901e-002f , 
5.3518153e-002f , 
5.3101671e-002f , 
5.2688431e-002f , 
5.2278406e-002f , 
5.1871572e-002f , 
5.1467905e-002f , 
5.1067378e-002f , 
5.0669969e-002f , 
5.0275652e-002f , 
4.9884404e-002f , 
4.9496200e-002f , 
4.9111018e-002f , 
4.8728833e-002f ; 
4.8349622e-002f , 
4.7973362e-002f , 
4.7600031e-002f , 
4.7229604e-002f , 
4.6862061e-002f , 
4.6497377e-002f , 
4.6135532e-002f , 
4.5776502e-002f , 
4.5420266e-002f , 
4.5066803e-002f , 
4.4716091e-002f , 
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4.4628840e-002f , 
4.4281535e-002f , 
4.3936934e-002f , 
4.3595014e-002f , 
4.3255755e-002f , 
4.2919136e-002f , 
4.2585136e-002f , 
4.2253736e-002f , 
4.1924915e-002f , 
4.1598653e-002f , 
4.1274929e-002f , 
4.0953725e-002f , 
4.0635021e-002f ; 
4.0318797e-002f , 
4.0005033e-002f , 
3 .9693712e-002f , 
3 .9384813e-002f , 
3.9078318e-002f , 
3.8774208e-002f , 
3.8472465e-002f , 
3.8173069e-002f , 
3.7876004e-002f , 
3.7581251e-002f , 
3.7288791e-002f , 
3.6998608e-002f , 
3.6710682e-002f , 
3.6424997e-002f , 
3.6141536e-002f , 
3.5860280e-002f , 
3 .5581213e-002f , 
3.5304318e-002f , 
3.5029578e-002f , 
3.4756975e-002f , 
3.4486494e-002f , 
3.4218118e-002f , 
3.3951831e-002f , 
3.3687616e-002f , 
3.3425456e-002f , 
3.3165337e-002f , 
3 ,2907243e-002f , 
3.2651157e-002f , 
3 .2397063e-002f , 
3.2144947e-002f , 
3.1894793e-002f , 
3.1646586e-002f , 
3.1400310e-002f , 
3 .1155951e-002f , 
3.0913494e-002f , 
3 .0672923e-002f , 
3.0434224e-002f . 
3.0197383e-002f , 
2 .9962386e-002f , 
2 .9729216e-002f 
2.9497862e-002f 
2.9268308e-002f 
2.9040540e-002f 
2 .8814545e-002f 
2.8590308e-002f 
2.8367816e-002f 
2 .8147056e-002f 
2 .7928014e-002f 
2.7710677e-002f 
2.7495030e-002f 
2.7281062e-002f 
2.7068760e-002f 
2.6858109e-002f 
2.6649097e-002f 
2.6441712e-002f 
2.6235941e-002f 
2 .6031772e-002f 
2.5829191e-002f 
2 ,5628186e-002f 
2.5428746e-002f 
2.5230858e-002f 
2.5034510e-002f 
2.4839690e-002f 



4.4541759e-002f , 
4.4195132e-002f , 
4.3851203e-002f , 
4.3509950e-002f , 
4.31713.53e-002f , 
4.2835391e-002f , 
4.2502043e-002f , 
4.2171290e-002f , 
4.1843110e-002f , 
4.1517485e-002f , 
4.1194393e-002f , 
4.0873816e-002f , 
4.0555733e-002f , 
4.0240126e-002f , 
3.9926975e-002f, 
3 .9616261e-002f , 
3.9307964e-002f , 
3.9002067e-002f , 
3 .8698551e-002f , 
3 .8397396e-002f , 
3.8098585e-002f , 
3.7802100e-002f , 
3.7507922e-002f , 
3.7216033e-002f , 
3.6926415e-002f , 
3 .6639052e-002f , 
3.6353924e-002f , 
3.6071016e-002f, 
3 .5790309e-002f , 
3.5511786e-002f , 
3.5235432e-002f , 
3.4961227e-002f , 
3.4689157e-002f , 
3.4419204e-002f , 
3.4151351e-002f , 
3.3885583e-002f , 
3.3621884e-002f , 
3 .3360236e-002f , 
3 .3100625e-002f , 
3.2843034e-002f , 
3 .2587447e-002f , 
3 .2333850e-002f , 
3.2082225e-002f , 
3.1832560e-002f , 
3 .1584837e-002f , 
3.1339042e-002f , 
3.1095159e-002f , 
3.0853175e-002f , 
3.0613073e-002f , 
3.0374841e-002f , 
3.0138462e-002f , 
2.9903922e-002f , 
2.9671208e-002f . 
2 .9440305e~002f , 
2.9211199e-002f 
2.8983875e-002f 
2.8758321e-002f 
2.8534522e-002f 
2.8312465e-002f 
2.8092135e-002f 
2.7873521e-002f 
2.7656607e-002f 
2.7441382e-002f 
2.7227831e-002f 
2.7015942e-002f 
2.6805703e-002f 
2 .6597099e-002f 
2.6390119e-002f 
2 .6184749e-002f 
2.5980978e-002f 
2.5778792e-002f 
2.5578180e-002f 
2 .5379129e-002f 
2.5181627e-002f 
2.4985662e-002f 
2.4791222e-002f 



4.4454848e-002f , 
4.4108898e-002f , 
4.3765640e-002f , 
4.3425053e-002f , 
4.3087116e-002f , 
4.2751810e-002f , 
4.2419113e-002f , 
4.2089004e-002f , 
4.1761465e-002f , 
4.1436475e-002f , 
4.1114014e-002f , 
4.0794062e-002f , 
4.0476600e-002f , 
4.0161609e-002f , 
3.9849068e-002f , 
3 .9538961e-002f , 
3.9231266e-002f , 
3.8925966e-002f , 
3 .8623042e-002f , 
3 .8322475e-002f , 
3.8024247e-002f , 
3 .7728340e-002f , 
3.7434735e-002f , 
3.7143416e-002f , 
3.6854364e-002f , 
3 .6567561e-002£ , 
3 .6282990e-002f , 
3.6000633e-002£, 
3 .5720474e-002f , 
3.5442495e-002f , 
3 .5166679e-002f , 
3 .4893010e-002f , 
3 .4621471e-002f , 
3.4352044e-002f , 
3 .4084715e-002f , 
3.3819465e-002f , 
3.3556280e-002f , 
3.3295143e-002f , 
3 .3036038e-002f , 
3 .2778950e-002£ J 
3 .2523862e~002£ J 
3 .2270759e-002£ , 
3.2019626e-002f , 
3 .1770447e-002f , 
3.1523208e-002f , 
3 .1277892e-002f , 
3.1034486e-002f , 
3.0792973e-002f , 
3 . 0553341e-002f ( 
3.0315573e~002f , 
3.0079655e-002f , 
2 .9845573e-002f , 
2.9613313e-002f . 
2 .9382861e-002f , 
2 .9154201e-002f 
2 .8927321e-002f 
2.8702207e-002f 
2.8478845e-002f 
2 .8257221e-002f 
2.8037321e-002f 
2 .7819133e-002f 
2.7602643e-002f 
2.7387838e-002f 
2.7174704e-002f 
2.6963228e-002f 
2.6753399e-002f 
2 .6545202e-002f 
2.6338626e-002f 
2.6133657e~002f 
2.5930283e-002f 
2 .5728492e-002f 
2 .5528272e-002f 
2.5329609e-002f 
2 . 5132492e-002f 
2.4936910e-002f 
2.4742849e»002f 



4.4368107e-002f , 
4.4022832e~002f , 
4.3680243e-002f , 
4.3340321e~002f , 
4.3003044e-002f , 
4.2668392e-002f , 
4.2336344e-002f , 
4.2006880e-002f , 
4.1679979e-002f , 
4.1355623e-002£, 
4.1033791e-002f , 
4.0714464e-002f , 
4.0397621e-002f , 
4.0083244e-002f , 
3.9771314e-002f , 
3.9461811e-002f , 
3.9154717e-002f , 
3 .8850013e-002f , 
3 .8547680e-002f , 
3.8247699e-002f , 
3.7950053e-002f , 
3.7654723e-002f , 
3.7361692e-002f , 
3 .7070941e-002f , 
3.6782453e-002f , 
3.6496209e-002f , 
3.6212194e-002f , 
3.5930388e-002f , 
3.5650776e-002f , 
3.5373339e-002f , 
3.5098062e-002f , 
3.4824926e-002f , 
3 .4553917e-002f , 
3.4285016e-002f , 
3.4018208e-002f , 
3.3753476e-002f f 
3 ,3490804e-002f f 
3 .3230177e-002f , 
3.2971578e-002f , 
3.2714991e-002f , 
3.2460401e-002f , 
3.2207792e-002f , 
3.1957149e-002f , 
3 .1708456e-002f , 
3.1461699e-002f , 
3.1216862e-002f , 
3.0973931e-002f , 
3.0732890e-002f , 
3.0493724e-002f , 
3.0256420e-002f , 
3.0020963e-002f , 
2.9787338e-002f , 
2.9555531e-002f , 
2.9325528e-002f , 
2.9097315e-002f , 
2.8870878e-002f , 
2.8646203e-002f , 
2.8423276e-002f , 
2.8202085e-002f , 
2.7982614e-002f , 
2.7764852e-002f , 
2.7548784e-002f , 
2.7334398e-002f , 
2.7121680e-002f , 
2.6910617e-002f , 
2.6701197e-002f , 
2.6493407e-002f , 
2.6287234e-002f , 
2.6082665e-002f , 
2.5879688e-002f , 
2.5678290e-002f , 
2.5478460e-002f , 
2.5280185e-002f , 
2.5083453e-002f , 
2.4888252e-002f , 
2.4694571e-002f , 
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2.4646386e-002f , 
2 .4454586e-002f , 
2.4264279e-002f , 
2 .4075453e-002f , 
2.3888096e-002f , 
2.3702198e-002f , 
2.3517746e-002f , 
2.3334729e-002f , 
2.3153137e-002f , 
2.2972958e-002f , 
2 .2794181e-002f , 
2.2616795e-002f , 
2.2440790e-002f , 
2.2266154e-002f , 
2.2092878e-002f , 
2.1920950e-002f , 
2.1750359e-002f , 
2.1581097e-002f , 
2.1413151e-002f , 
2.1246513e-002f , 
2.1081171e-002f , 
2.0917116e-002f , 
2.0754338e-002f , 
2.0592826e-002f , 
2.0432572e-002f , 
2.0273564e-002f , 
2.0115794e-002f , 
1.9959252e-002f , 
1.9803928e-002f , 
1.9649812e-002f , 
1.9496896e-002f , 
1.9345170e-002f , 
1.9194625e-002f , 
1.9045251e-002f , 
1.8897040e-002f , 
1.8749982e-002f , 
1.8604068e-002f , 
1.8459290e-002f , 
1.8315639e-002f , 
1.8173105e-002f , 
1.8031681e-002f , 
1.7891358e-002f , 
1.7752126e-002f , 
1.7613978e-002f , 
1.7476905e-002f , 
1.7340898e-002f , 
1.7205950e-002f , 
1.7072053e-002f , 
1.6939197e-002f , 
1.6807375e-002f , 
1.6676579e-002f , 
1.6546801e-002f , 
1.6418033e-002f , 
1.6290266e-002f , 
1.6163495e-002f , 
1.6037709e-002f , 
1.5912903e-002f , 
1.5789068e-002f , 
1.5666196e-002f , 
1.5544281e-002f , 
1.5423314e-002f , 
1.5303289e-002f , 
1.5184198e-002f , 
1.5066034e-002f , 
1.4948789e-002f f 
1.4832456e-002f , 
1.4717029e-002f , 
1.4602500e-002f , 
1.4488863e-002f , 
1.4376110e-002f , 
1.4264234e-002f , 
1.4153229e-002f , 
1.4043087e-002f , 
1.3933803e-002f , 
1.3825370e-002f , 
1.3717780e-002f , 



2.4598296e-002f , 
2.4406870e-002f / 
2.4216934e-002f , 
4028477e-002f , 
3841486e-002f , 
3655950e-002f , 
3471858e-002f , 
3289198e-002f , 
3107960e-002f 



2 
2 
2 
2 
2 
2 
2 
2 

2.2572665e-002f , 
2.2397003e-002f , 
2.2222708e-002f , 
2.2049770e-002f , 
2.1878177e-002f , 
2 .1707920e-002f , 
2 
2 
2 
2 
2 
2 



2.4502396e-002f , 
2.4311717e-002£ , 
2.4122521e-002f , 
2.3934798e-002f , 
2.3748536e-002f , 
2.3563724e-002f , 
2.3380349e-002f , 
2.3198402e-002f , 
2 .3017871e-002f , 



2 .4550299e-002f , 
2.4359247e-002f , 
2.4169682e-002f , 
2 .3981592e-002f , 
2.3794966e-002f , 
2 .3609792e-002f , 
2 .3426059e-002f , 
2.3243756e-002f , 
2.3062871e-002f , 
2928133e-002f, 2 . 2883395e-002f , 2 . 2838744e-002f , 
2749704e-002f , 2 . 2705315e-002f , 2 . 2661012e-002f , 
2 .2528621e-002f , 
2.2353302e-002f , 
2 .2179347e-002f , 
2.2006746e-002f , 
2 .1835488e-002f , 
2 .1665563e-002f , 
1538987e-002f , 2 . 1496960e-002 f , 
1371370e-002f , 2 . 1329669e-002 f , 



1205056e-002f , 
1040037e-002f , 
0876302e-002f , 
0713842e-002f , 
2.0552645e-002f , 
2.0392703e-002f , 
2.0234006e-002f , 
2.0076544e-002f , 
1.9920307e-002f , 
1.9765286e-002f , 
1.9611471e-002f , 
1.9458853e-002f , 
1.9307423e-002f , 
1.9157172e-002f , 
1.9008090e-002f , 
1.8860167e-002f , 
1.8713396e-002f , 
1.8567768e-002f , 
1.8423272e-002f , 
1.8279901e-002f , 
1.8137646e-002f , 
1.7996497e-002f , 
1.7856448e-002f , 
1.7717488e-002f , 
1.7579609e-002f , 
1.7442803e-002f , 
1.7307062e-002f , 
1.7172378e-002f , 
1.7038741e-002f , 
1.6906145e-002f , 
1.6774580e-002f , 
1.6644039e-002f , 
1.6514514e-002f , 
1. 6385997e-002f , 
1.6258481e-002f , 
1.6131956e-002f , 
1.6006416e-002f , 
1.5881853e-002f , 
1.5758260e-002f , 
1.5635628e-002f , 
1.5513951e-002f , 
1.5393220e-002f , 
1.5273429e-002f , 
1. 5154570e-002f , 
1.5036636e-002f , 
1.4919620e-002f , 
1.4803515e-002f , 
1.4688313e-002f , 
1.4574008e-002f , 
1.4460592e-002f , 
1.4348059e-002f , 
1.4236401e-002f , 
1.4125613e-002f , 
1.4015686e-002f , 
1.3906615e-002f , 
1. 3798393e-002f , 
1.3691013e-002f , 



2 .1163681e-002f , 
2.0998983e-002f , 
2.0835568e-002f , 
2.0673424e-002f , 
2 .0512543e-002f , 
2 .0352913e-002f , 
2.0194525e-002f , 
2.0037370e-002f , 
1.9881438e-002f , 
1.9726719e~002f , 
1.9573205e-002f , 
1.9420885e-002f , 
1.9269750e-002f , 
1.9119792e-002f , 
1.8971001e-002f , 
1.8823367e-002f , 
1.8676882e-002f , 
1.8531538e-002f , 
1.8387324e-002f , 
1.8244233e-002f , 
1.8102255e-002f , 
1.7961382e-002f , 
1.7821606e-002f , 
1.7682917e-002f , 
1.7545307e-002f , 
1.7408769e-002f , 
1.7273293e-002f , 
1.7138871e-002f , 
1.7005495e-002f , 
1.6873157e-002f , 
1.6741849e-002f , 
1.6611563e-002f , 
1.6482291e-002f , 
1.6354025e-002f , 
1.6226757e-002f , 
1.6100479e-002f , 
1.5975184e-002f , 
1.5850864e-002f , 
1.5727512e-002f , 
1.5605119e-002f , 
1.5483679e-002f , 
1.5363184e-002f , 
1.5243627e-002f , 
1.5125000e-002f , 
1.5007297e-002f , 
1.4890509e-002f , 
1.4774630e-002f , 
1.4659653e-002f , 
1.4545571e-002f , 
1.4432376e-002f , 
1.4320063e-002f , 
1.4208623e-002f , 
1.4098051e-002f , 
1.3988339e-002f , 
1.3879481e-002f , 
1.3771470e-002f , 
1.3664299e-002f , 



2.2484662e-002f , 
2.2309685e-002f , 
2 .2136070e-002f , 
2.1963806e-002f , 
2 ,1792882e-002f , 
2.1623288e-002f , 
2.1455015e-002f , 
2.1288050e-002f , 
2.1122386e-002f , 
2.0958010e-002f , 
2.0794913e-002f , 
2.0633086e-002f , 
2.0472518e-002f , 
2.0313200e-002f , 
2.0155121e-002f , 
1.9998273e-002f , 
1.9842645e-002f , 
1.9688228e-002f , 
1.9535013e-002f , 
1.9382991e-002f , 
1.9232151e-002f , 
1.9082485e-002f , 
1.8933984e-002f , 
1.8786639e-002f , 
1.8640440e-002f , 
1.8495379e-002f , 
1.8351447e-002f , 
1.8208634e-002f , 
1.8066934e-002f , 
1.7926336e-002f , 
1.7786832e-002f , 
1.7648414e-002f , 
1.7511073e-002f , 
1.7374800e-002f , 
1.7239589e-002f , 
1.7105429e-002f , 
1.6972314e-002f , 
1.6840234e-002f , 
1.6709182e-002f , 
1.6579150e-002f , 
1.6450130e-002f , 
1.6322114e-002f , 
1.6195095e-002f , 
1.6069064e-002f , 
1.5944013e-002f , 
1.5819936e-002f , 
1.5696824e-002f , 
1.5574670e-002f , 
1.5453467e-002f , 
1.5333208e-002f , 
1.5213884e-002f , 
1.5095488e-002f , 
1.4978014e-002f , 
1.4861454e-002f , 
1.4745802e-002f , 
1.4631049e-002f , 
1.4517189e-002f , 
1.4404215e-002f , 
1.4292121e-002f , 
1.4180899e-002f , 
1.4070542e-002f , 
1.3961044e-002f , 
1.3852399e-002f , 
1.3744598e-002f , 
1.3637637e-002f , 
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1.3611027e-002f , 
1.3505105e-002f , 
1.3400008e-002f , 
1.3295728e-002f , 
1.3192260e-002f , 
1.3089597e-002f , 
1.2987733e-002f , 
1.2886661e-002f , 
1.2786377e-002f , 
1.2686872e-002f , 
1.2588142e-002f , 
1.2490181e-002f , 
1.2392981e-002f , 
1.2296538e-002f , 
1.2200846e-002f , 
1.2105898e-002f , 
1.2011689e-002f , 
1.1918214e-002f , 
1.1825465e-002f , 
1.1733439e-002f , 
1.1642128e-002f , 
1.1551529e-002f , 
1.1461634e-002f , 
1.1372439e-002f , 
1.1283938e-002f , 
1.1196125e-002f , 
1.1108997e-002f , 
1.1022546e-002f , 
1.0936768e-002f , 
1.0851657e-002f , 
1.0767209e-002f , 
1.0683418e-002f , 
1.0600279e-002f , 
1.0517787e-002f , 
1.0435936e-002f , 
1.0354723e-002f , 
1.0274142e-002f , 
1.0194188e-002f , 
1.0114856e-002f , 
1.0036142e-002f , 
9.9580401e-003f , 
9.8805461e-003f , 
9.8036550e-003f , 
9.7273624e-003f , 
9.6516635e-003f , 
9.5765536e~003f , 
9.5020283e-003f , 
9.4280829e-003f , 
9.3547130e-003f , 
9.2819140e-003f , 
9.2096816e-003f , 
9.1380113e-003f , 
9.0668987e-003f , 
8.9963396e-003f , 
8.9263295e-003f , 
8.8568642e-003f , 
8.7879396e-003f , 
8.7195513e-003f , 
8.6516952e-003f , 
8.5843672e-003f , 
8.5175631e-003f , 
8.4512789e-003f , 
8.3855105e-003f , 
8.3202540e-003f , 
8.2555052e-003f , 
8.1912604e-003f , 
8.1275155e-003f , 
8.0642667e-003f , 
8.0015100e-003f , 
7.9392418e-003f , 
7.8774581e-003f , 
7.8161553e-003f , 
7 .7553295e-003f , 
7.6949770e-003f , 
7.6350942e-003f , 
7.5756774e-003f , 



1.3584469e-002f , 
1.3478754e-002f , 
1.3373861e-002f , 
1.3269785e-002f , 
1.3166519e-002f , 
1.3064056e-002f , 
1.2962391e-002f , 
1.2861517e-002f , 
1.2761428e-002f , 
1.2662117e-002f , 
1.2563580e-002f , 
1.2465809e-002f , 
1.2368800e-002f , 
1.2272545e-002f , 
1.2177039e-002f , 
1.2082277e-002f , 
1.1988252e-002f , 
1.1894958e-002f , 
1.1802391e-002f , 
1.1710544e-002f , 
1.1619412e-002f , 
1.1528989e-002f , 
1.1439270e-002f , 
1.1350249e-002f , 
1.1261920e-002f , 
1.1174279e-002f , 
1.1087320e-002f , 
1.1001038e-002f , 
1.0915427e-002f , 
1.0830483e-002f , 
1.0746199e-002f , 
1.0662572e-002f , 
1.0579595e-002f , 
1.0497264e-002f , 
1.0415574e-002f , 
1.0334519e-002f , 
1.0254095e-002f , 
1.0174297e-002f , 
1.0095120e-002f , 
1.0016559e-002f , 
9.9386098e-003f , 
9.8612669e-003f , 
9.7845260e-003f , 
9.7083822e-003f , 
9.6328309e-003f , 
9.5578677e-003f , 
9.4834877e-003f , 
9.4096867e-003f , 
9.3364599e-003f , 
9.2638030e-003f , 
9.1917115e-003f , 
9.1201810e-003f , 
9.0492072e-003f , 
8.9787857e-003f ; 
8.9089123e-003f , 
8.8395826e-003f , 
8.7707924e-003f , 
8.7025375e-003f , 
8.6348139e-003f , 
8.5676172e-003f , 
8.5009435e-003f , 
8.4347886e-003f , 
8.3691486e-003f , 
8.3040193e-003f , 
8.2393969e-003f , 
8.1752774e-003f , 
8.1116569e-003f f 
8.0485315e-003f , 
7.9858973e-003f , 
7.9237506e-003f , 
7.8620875e-003f , 
7.8009042e-003f , 
7.7401971e-003f , 
7.6799624e-003f , 
7.6201965e-003f , 
7.5608956e-003f , 



1.3557963e-002f , 
1.3452454e-002f , 
1.3347766e-002f , 
1.3243893e-002f , 
1.3140828e-002f , 
1.3038565e-002f , 
1 .2937098e-002f , 
1.2836421e-002f , 
1.2736527e-002f , 
1.2637411e-002f , 
1.2539066e-002f , 
1.2441486e-002f , 
1.2344666e-002f , 
1.2248599e-002f , 
1.2153279e-002f , 
1.2058702e-002f , 
1.1964860e-002f , 
1.1871749e-002f , 
1.1779362e-002f , 
1.1687694e-002f , 
1.1596740e-002f , 
1.1506494e-002f , 
1.1416949e-002f , 
1.1328102e-002f , 
1.1239946e-002f , 
1.1152476e-002f , 
1.1065687e-002f , 
1.0979573e-002f , 
1.0894129e-002f , 
1.0809350e-002f , 
1.0725231e-002f # 
1.0641767e-002f , 
1.0558952e-002f , 
1.0476782e-002f , 
1.0395251e-002f , 
1.0314354e-002f , 
1.0234087e-002f , 
1.0154445e-002f , 
1.0075422e-002f , 
9.9970148e-003f , 
9.9192174e-003f , 
9.8420255e-003f , 
9.7654342e-003f , 
9.6894390e-003f , 
9.6140352e-003f , 
9.5392182e-003f , 
9.4649834e-003f , 
9.3913263e-003f , 
9.3182424e-003f , 
9.2457273e-003f , 
9.1737765e-003f , 
9.1023856e-003f , 
9.0315502e-003f , 
8.9612662e-003f , 
8.8915290e»003f , 
8.8223346e-003f , 
8.7536786e-003f , 
8.6855570e-003f , 
8.6179654e-003f , 
8.5508999e-003f , 
8.4843563e-003f , 
8.4183305e-003f , 
8.3528185e-003f , 
8.2878164e-003f , 
8.2233201e-003f , 
8.1593257e-003f , 
8.0958293e-003f , 
8.0328271e-003f , 
7.9703151e-003f , 
7.9082896e-003f , 
7.8467468e-003f , 
7.7856830e-003f , 
7.7250943e-003f , 
7.6649771e-003f , 
7.6053278e-003f , 
7.5461427e-003f , 



1.3531508e-002f , 
1.3426205e-002f , 
1.3321722e-002f , 
1.3218051e-002f , 
1.3115187e-002f , 
1.3013124e-002f , 
1.2911855e-002f , 
1.2811374e-002f , 
1.2711676e-002f , 
1.2612752e-002f , 
1.2514599e-002f , 
1.2417210e-002f , 
1.2320578e-002f , 
1.2224699e-002f , 
1.2129566e-002f , 
1.2035172e-002f , 
1.1941514e-002f , 
1.1848584e-002f , 
1.1756378e-002f , 
1.1664889e-002f , 
1.1574112e-002f , 
1.1484042e-002f , 
1.1394672e-002f , 
1.1305998e-002f , 
1.1218014e-002f , 
1.1130715e-002f , 
1.1044095e-002f , 
1.0958149e-002f , 
1.0872872e-002f , 
1.0788259e-002f , 
1.0704304e-002f , 
1.0621002e-002f , 
1.0538349e-002f , 
1.0456339e-002f , 
1.0374967e-002f , 
1.0294229e-002f , 
1.0214118e-002f , 
1.0134631e-002f , 
1.0055763e-002f , 
9.9775084e-003f , 
9.8998629e-003f , 
9.8228215e-003f , 
9.7463797e-003f , 
9.6705328e~003f , 
9.5952761e-003f , 
9.5206051e-003f , 
9.4465151e-003f , 
9.3730018e-003f , 
9.3000605e-003f , 
9.2276868e-003f , 
9.1558764e-003f , 
9.0846248e-003f , 
9.0139277e-003£ / 
8.9437808e-003f , 
8.8741797e-003f , 
8.8051203e-003f , 
8.7365983e-003f , 
8.6686096e-003f , 
8.6011499e-003f , 
8.5342152e-003f , 
8.4678014e-003f , 
8.4019045e-003f , 
8.3365203e-003f , 
8.2716450e-003f , 
8.2072746e-003f , 
8.1434051e-003f , 
8.0800326e-003f , 
8.0171533e-003f , 
7.9547633e-003f , 
7.89285880-0031, 
7.8314361e-003f , 
7.7704914e-003f , 
7.7100209e-003f , 
7.6500211e-003f , 
7.5904881e-003f , 
7.5314185e-003f , 
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7.5167231e-003f , 
7.4582275e-003f , 
7.4001871e-003f , 
7.3425984e-0031 , 
7.2854578e-003f , 
7.2287619e-003f , 
7.1725072e-003f , 
7.1166904e-003f , 
7.0613078e-003f , 
7.0063563e-0031 , 
6.9518324e-003f , 
6.8977328e-0031 , 
6.8440542e-0031 , 
6.7907934e-003f , 
6.7379470e-003f , 
6.6855119e-0031 , 
6.6334848e-0031 , 
6.5818626e-003f , 
6.5306422e-0031 , 
6.4798203e-003f , 
6.4293939e-003f , 
6.3793600e-003f , 
6.3297154e-003f , 
6.2804572e-003f , 
6.2315823e-003f , 
6.1830877e-003f , 
6.1349706e-003f , 
6.0872278e-003f , 
6.0398567e-003f , 
5.9928541e-0031 , 
5.9462174e-003f , 
5.8999435e-003f , 
5.8540298e-0031 , 
5.8084734e-003f , 
5.7632715e-003f , 
5.7184213e-003f , 
5.6739202e-0031 , 
5.6297654e-003f , 
5.5859543e-003f , 
5.5424840e-0031 , 
5.4993521e-003f , 
5.4565558e-003f , 
5.4140925e-003f , 
5.3719597e-003f , 
5.3301548e-0031 , 
5.2886752e-003f , 
5.2475184e-003f , 
5.2066819e-003f , 
5.1661632e-003f , 
5.1259598e-003f , 
5.0860692e-003f , 
5.0464891e-003f , 
5.0072170e-003f , 
4.9682506e-003f , 
4.9295873e-0031, 
4.8912250e-003f , 
4.8531612e-003f , 
4.8153936e-0031 , 
4.7779199e-003f , 
4.7407378e-003f , 
4.7038451e-003f , 
6672395e-003f , 
6309187e-0031 , 
5948806e-003f , 
5591230e-003f , 
5236436e-003f , 
4.4884403e-003f , 
4.4535110e-003f , 
4.4188535e-003f , 
3844657e-003f , 
3503456e-003f , 
3164909e-003f , 
2828997e-003f , 
2495699e-003f , 
4.2164995e-0031 , 
4.1836864e-003f , 



7.5020563e-003f , 
7.4436748e-003f , 
7.3857477e-003f , 
7.3282713e-003f , 
7.2712423e-003f , 
7.2146570e-003f , 
7.1585121e-003f , 
7.1028041e-0031 , 
7.0475297e-003f , 
6.9926854e-0031 , 
6.9382678e-003f , 
6.8842738e-003f , 
6.8307000e-003f , 
6.7775430e-003f , 
6.7247998e-003f , 
6.6724670e-003f , 
6.6205414e-003f , 
6.5690200e-0031 , 
6.5178995e-003f , 
6.4671768e-003f , 
6.4168488e-003f , 
6.3669125e-0031 , 
6.3173648e-003f , 
6.2682026e-003f , 
6.2194231e-003f , 
6.1710232e-003f , 
6.1229999e-0031 , 
6.0753503e-003f , 
6.0280716e-0031 , 
5.9811607e-0031 , 
5.9346150e-0031 , 
5.8884314e-003f , 
5.8426073e-003f , 
5.7971398e-003f , 
5.7520261e-003f , 
5.7072635e-0031 , 
5.6628492e-003f , 
5.6187805e-003f , 
5.5750548e-0031 , 
5.5316694e-0031 , 
5.4886216e-003f , 
5.4459088e-003f , 
5.4035284e-003f , 
5.3614778e-003f , 
5.3197545e-003f , 
5.2783558e-003t, 
5.2372793e-003f , 
5.1965225e-003f , 
5.1560829e-003f , 
5.1159579e-003f , 
5.0761452e-003f f 
5.0366423e-0031 , 
4.9974469e-003f , 
4.9585564e-003f , 
4,9199686e-0031 , 
4.8816811e-003f , 
4.8436916e-003f , 
4.8059977e-003f , 
4.7685971e-0031, 
4.7314876e-0031 , 
4.6946669e-003f , 
4.6581327e-003f , 
4.6218828e-003f , 
4.5859150e-003f , 
4.5502271e-0031 , 
4.5148170e-003f , 
4.4796824e-0031 , 
4.4448212e-0031 , 
4.4102314e-003f , 
4.3759107e-003f , 
4.3418571e-003f , 
4.3080685e-003f , 
4.2745428e-003f , 
4.2412781e-003f , 
4.2082722e-003f , 
4.1755231e-0031 , 



7.4874181e-003f , 
7.4291506e-0031 , 
7.3713365e-003f , 
7 .3139723e-0031 , 
7 .2570545e-003f , 
7.2005796e-0031, 
7 .1445443e-003f , 
7.0889450e-003f , 
7.0337784e-003f , 
6.9790411e-003f , 
6.9247298e-003f , 
6.8708411e-003f ; 
6.8173718e-003f , 
6.7643186e-003f , 
6.7116782e-003f , 
6.6594475e-0031 , 
6.6076233e-003f , 
6.5562024e-003f , 
6.5051816e-003f , 
6.4545579e-003f , 
6.4043281e-003f , 
6.3544892e-003f , 
6.3050382e-003f , 
6.2559720e-0031, 
6.2072876e-003f , 
6.1589822e-0031 , 
6.1110526e-003f , 
6.0634960e-003f , 
6.0163095e-003f , 
5.9694902e-003f , 
5.9230353e-003f , 
5.8769418e-003f , 
5.8312071e-003f , 
5.7858283e-0031 , 
5.7408026e-003f , 
5.6961273e-003f , 
5.6517997e-003f , 
5.6078171e-003f , 
5.5641767e-003f , 
5.5208759e-0031 , 
5.4779121e-003f , 
5.4352827e-003f , 
5.3929850e-003f , 
5.3510164e-003f , 
5.3093745e-003f , 
5.2680566e-003f , 
5.2270603e-003f , 
5.1863830e-003f , 
5.1460222e-003f , 
5.1059755e-003f , 
5.0662405e-003f , 
5.0268147e-003f , 
4.9876957e-003f , 
4.9488812e-003f , 
4.91036876-0031, 
4.8721559e-003f , 
4.83424056-0031, 
4.7966201e-003f , 
4.75929256-0031, 
4.7222554e-003f , 
4.6855065e-003f , 
4.64904366-0031, 
4.61286456-0031, 
4.5769669e-003f , 
4.5413487e-0031, 
4.50600766-0031, 
4.47094166-0031, 
4.4361484e-0031 , 
4.4016260e-0031, 
4.3673723e-0031, 
4.3333852e-0031, 
4.2996625e-0031, 
4.2662023e-0031, 
4.2330024e-003f , 
4.2000609e-0031, 
4.1673758e-003f , 



7 .4728085e-0031, 
7.4146547e-0031, 
7.3569534e-0031, 
7.2997011e-0031, 
7.2428944e-0031, 
7.1865297e-0031, 
7.1306037e-003f , 
7.0751129e-0031, 
7.0200540e-003f , 
6.9654235e-0031, 
6.9112181e-0031, 
6.8574346e-0031, 
6.8040696e-0031, 
6.7511199e-003t, 
6.6985823e-003f , 
6.6464535e-0031, 
6.5947304e-0031, 
6.54340986-0031, 
6.4924886e-003t, 
6.4419636e-0031, 
6.3918319e-0031, 
3420902e-003f , 
2927357e-003f , 
2437652e-0031, 
1951759e-0031, 
1469646e-0031, 
6.0991286e-0031, 
6.0516648e-0031, 
6.0045703e-0031, 
5.9578424e-0031, 
5.9114781e-0031, 
5.8654746e-0031, 
5.81982916-0031, 
5.7745389e-0031, 
5.7296011e-0031, 
5.6850129e-0031, 
5.6407718e-0031, 
5.5968750e-0031, 
5.5533198e-003f , 
5.5101035e-003f , 
5.4672235e-0031, 
5.4246772e-0031, 
5. 3824621e-0031 , 
5.3405754e-0031, 
5.2990147e-0031 , 
5.2577775e-0031, 
5.2168611e-0031, 
5.1762632e-0031, 
5.1359812e-0031, 
5.0960127e-0031, 
5.0563552e-0031, 
5.0170063e-0031, 
4.9779637e-0031, 
4.9392248e-0031, 
4.9007875e-0031, 
4.8626493e-0031, 
4.8248078e-0031, 
4.7872609e-0031, 
4.7500061e-003t, 
4.7130413e-0031, 
4.6763641e-0031, 
4.6399723e-0031, 
4.6038638e-0031 , 
4.5680362e-0031, 
4.5324875e-0031, 
4.4972154e-0031, 
4.4622178e-0031, 
4.4274925e-0031, 
4.3930375e-0031, 
4.3588506e-0031 , 
4.3249298e-0031, 
4.2912729e-0031, 
4.2578780e-0031, 
4.2247429e-003f , 
4.1918657e-003f , 
4.1592443e-0031 , 
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4.1511287e-003f , 
4.1188244e-003f , 
4.0867714e-003f , 
4.0549679e-003f , 
4.0234119e-003f , 
3.9921015e-003f , 
3 .9610347e-003f , 
3.9302097e-003f , 
3.8996245e-003f , 
3.8692774e-003f , 
3.8391665e-003f , 
3.8092898e-003f , 
3 ,7796457e-003f , 
3.7502323e-003f , 
3 .7210477e-003f , 
3.6920903e-003f , 
3.6633582e-003f , 
3.6348498e-003f , 
3.6065631e-003f , 
3.5784966e-003f , 
3 ,5506486e-003f , 
3.5230172e-003f , 
3.4956009e-003f , 
3.4683979e-003f , 
3.4414066e-003f , 
3.4146253e-003f , 
3.3880525e-003f , 
3.3616865e-003f , 
3.3355256e-003f , 
3.3095684e-003f , 
3.2838131e-003f , 
3.2582583e-003f , 
3.2329023e-003f , 
3 .2077437e-003f , 
3.1827808e-003f , 
3.1580122e-003f , 
3 .1334364e-003f , 
3.1090518e-003f , 
3 .0848569e-003f , 
3 .0608504e-003f , 
3 .0370307e-003f , 
3.0133963e-003f , 
2.9899459e-003f , 
2 .9666779e-003f , 
2 .9435910e-003f , 
2 ,9206838e-003f , 
2.8979549e-003f , 
2.8754028e-003f , 
2.8530263e-003f , 
2 .8308238e-003f , 
2 .8087942e-003f , 
2 .7869360e-003f , 
2.7652479e-003f , 
2 .7437285e-003f , 
2.7223767e-003f , 
2 .7011910e-003f , 
2.6801701e-003f , 
2.6593129e-003f , 
2 .6386180e-003f , 
2.6180841e-003f , 
2.5977100e-003f , 
2 . 5774944e-003f , 
2 .5574362e-003f , 
2 . 5375341e-003f , 
2.5177868e-003f , 
2.4981933e-003f , 
2 .4787522e-003f , 
2.4594624e-003f , 
2.4403227e-003f , 
2.4213319e-003f , 
2 ,4024890e-003f , 
2 ,3837927e-003f , 
2.3652419e-003f , 
2 .3468354e-003f , 
2.3285722e-003f , 
2.3104511e-003f , 



4.1430290e-003f , 
4.1107877e-003f , 
4.0787973e-003f , 
4.0470558e-003f , 
4.0155614e-003f , 
3.9843120e-003f , 
3.9533059e-003f , 
3.9225410e-003f , 
3.8920155e-003f , 
3.8617276e~003f , 
3.8316754e-003f, 
3.8018571e-003f , 
3 .7722708e-003f , 
3.7429148e-003f , 
3.7137872e-003f , 
3.6848862e-003f , 
3.6562102e-003f , 
3.6277574e-003f , 
3.5995259e-003f , 
3.5715142e-003f , 
3.5437205e-003f , 
5161430e-003f , 
4887802e-003f , 
4616303e-003f , 
4346916e-003f , 
3 .4079627e-003f , 
3 .3814417e-003f , 
3.3551271e-003f , 
3.3290173e-003f , 
3031107e-003f , 
2774057e~003f , 
2519007e-003f , 
2265942e-003f , 
2014846e-003f , 
1765705e-003f , 
3.1518502e-003f , 
3.1273223e-003f , 
3.1029853e-003f , 
3.0788377e-003f , 
3.0548780e-003f , 
3.0311047e-003f , 
3.0075165e-003f , 
2.9841118e-003f , 
2.9608893e-003f , 
2.9378475e-003f , 
2 .9149849e-003f , 
2.8923003e-003f , 
2.8697923e-003f , 
2.8474594e-003f, 
2.8253003e-003f , 
2.8033136e-003f , 
2.7814981e-003f , 
2.7598523e-003f , 
2.7383749e-003f , 
7170647e-003f , 
6959204e-003£ , 
6749405e-003f , 
6541240e-003f , 
6334694e-003f , 
6129756e-003f , 
2.5926413e-003f , 
2.5724652e-003f , 
2.5524461e-003f , 
2 .5325828e-003f , 
2.5128741e-003f , 
2.4933187e-003f , 
2.4739156e-003f , 
2.4546634e-003f , 
2.4355611e-003f , 
2.4166074e-003f , 
2.3978012e-003f , 
2 .3791414e-003f , 
2.3606267e-003f , 
2 .3422562e-003f , 
2.3240286e-003f , 
2.3059429e-003f , 



4.1349450e-003f , 
4.1027666e-003f , 
4.0708386e-003f , 
4.0391591e-003f , 
4.0077261e-003f , 
3.9765378e-003f , 
3 .9455921e-003f , 
3.9148872e-003f , 
3.8844214e-003f , 
3 .8541925e-003f , 
3.8241990e-003f , 
3.7944388e-003f , 
3 ,7649103e-003f , 
3.7356115e-003f , 
3 .7065407e-003f , 
3 .6776962e-003f , 
3.6490762e-003f , 
3 .6206788e-003f , 
3.5925025e-003f , 
3 .5645454e-003f , 
3 .5368059e-003f , 
3.5092822e-003f , 
3.4819728e-003f , 
3.4548759e-003f , 
3 .4279898e-003f , 
3 .4013130e-003f , 
3 .3748438e-003f , 
3 ,3485805e-003f , 
3.3225217e-003f , 
3.2966656e-003f , 
3.2710107e-003f , 
3.2455555e-003f , 
3 .2202984e-003f , 
3.1952378e-003f , 
3.1703723e-003f , 
3.1457003e-003f , 
3 .1212202e-003f , 
3.0969307e-003f , 
3 . 0728302e-003f , 
3 .0489173e~003f , 
3.0251904e-003f , 
3.0016482e-003f , 
2.9782892e-003f , 
2 .9551119e-003f , 
2.9321151e-003f , 
2.9092972e-003f , 
2.8866568e-003f , 
2.8641927e-003f , 
2.8419034e-003f , 
2.8197875e-003f , 
2.7978437e-003f , 
2.7760708e-003f , 
2.7544672e-003f , 
2.7330318e-003f , 
2.7117631e-003f , 
2.6906600e-003f , 
2.6697212e-003f , 
2 .6489452e-003f , 
2.6283310e-003f , 
2.6078771e-003f , 
2.5875825e-003f , 
2.5674457e-003f , 
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9980547e- 


OOlf, 



9.9999905e-001f 
9.9999523e-001f 
9.9999142e-001f 
9.9998760e-001f 
9.9998379e-001f 
9.9997997e-001f 
9.9997616e-001f 
9.9997234e-001f 
9.9996853e-001f 
9.9996471e-001f 
9.9996090e-001f 
9.9995709e-001f 
9.9995327e-001f 
9.9994946e-001f 
9.9994564e-001f 
9.9994183e-001f 
9.9993801e-001f 
9.9993420e-001f 
9.9993038e-001f 
9.9992657e-001f 
9.9992276e»001f 
9.9991894e-001f 
9.9991513e-001f 
9.9991131e-001f 
9.?990750e-001f 
9.9990368e-001f 
9.9989987e-001f 
9.9989605e-001f 
9.9989224e-001f 
9.9988843e-001f 
9.9988461e-001f 
9.9988080e-001f 
9.9987698e-001f 
9.9987317e-001f 
9.9986936e-001f 
9.9986554e-001f 
9.9986173e-001f 
9.9985791e-001f 
9.9985410e-001f 
9.9985028e-001f 
9.9984647e-001f 
9.9984266e-001f 
9.9983884e-001f 
9.9983503e-001f 
9.9983121e-001f 
9.9982740e-001f 
9.9982359e-001f 
9.9981977e-001f 
9.9981596e-001f 
9.9981214e-001f 
9.9980833e-001f 
9.9980452e-001f 



9.9999809e-001f 
9.9999428e-001f 
9.9999046e-001f 
9.9998665e-001f 
9.9998283e-001f 
9.9997902e-001f 
9.9997520e-001f 
9.9997139e-001f 
9.9996758e-001f 
9.9996376e-001f 
9.9995995e-001f 
9.9995613e-001f 
9.9995232e-001f 
9.9994850e-001f 
9.9994469e-001f 
9.9994087e-001f 
9.9993706e-001f 
9.9993325e-001f 
9.9992943e-001f 
9.9992562e-001f 
9.9992180e-001f 
9.9991799e-001f 
9.9991417e-001f 
9.9991036e-001f 
9.9990654e-001f 
9.9990273e-001f 
9.9989892e-001f 
9.9989510e-001f 
9.9989129e-001f 
9.9988747e-001f 
9.9988366e-001f 
9.9987984e-001f 
9,9987603e-001f 
9.9987222e-001f 
9.9986840e-001f 
9.9986459e-001f 
9.9986077e-001f 
9.9985696e-001f 
9.9985314e-001f 
9.9984933e-001f 
9.9984552e-001f 
9.9984l70e-001f 
9.9983789e-001f 
9.9983407e-001f 
9.9983026e-001f 
9.9982645e-001f 
9.9982263e-001f 
9.9981882e-001f 
9.9981500e-001f 
9.9981119e-001f 
9.9980738e-001f 
9.9980356e-001f 



9.9999714e-001f , 
9.9999332e-001f , 
9.9998951e-001f / 
9.9998569e-001f , 
9.9998188e-001f , 
9.9997807e-001f , 
9.9997425e-001f / 
9.9997044e-001f , 
9.9996662e-001f , 
9.9996281e-001f , 
9.9995899e-001f / 
9.9995518e-001f / 
9.9995136e-001f , 
9.9994755e-001f , 
9.9994373e-001f , 
9.9993992e-001f , 
9.9993611e-001f , 
9.9993229e-001f , 
9.9992848e-001f / 
9.9992466e-001f , 
9.9992085e-001f , 
9.9991703e-001f , 
9.9991322e-001f / 
9.9990941e-001f / 
9.9990559e-001f / 
9.9990178e-001f , 
9.9989796e-001f , 
9.9989415e-001f , 
9,9989033e-001f , 
9.9988652e-001f , 
9.9988270e-001f , 
9.9987889e-001f , 
9.9987508e-001f , 
9.9987126e-001f , 
9.9986745e~001f , 
9.9986363e-001f , 
9.9985982e-001f , 
9.9985601e-001f , 
9.9985219e-001f , 
9.9984838e-001f , 
9.9984456e-001f , 
9.9984075e-001f / 
9.9983693e-001f , 
9.9983312e-001f , 
9.9982931e-001f , 
9.9982549e-001f , 
9.9982168e-001f , 
9,9981786e-001f / 
9.9981405e-001f , 
9.9981024e-001f , 
9,9980642e-001f , 
9,9980261e-001f / 
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9.9980166e- 
9.9979784e- 
9.9979403e- 
9.9979021e- 
9.9978640e- 
9.9978259e- 
9.9977877e- 
9.99774966- 
9.9977114e- 
9.9976733e- 
9.9976352e- 
9.9975970e- 
9.9975589e- 
9.9975208e- 
9.9974826e- 
9.9974445e- 
9.9974063e- 
9973682e- 
9973301e- 
9972919e- 
99725386- 
9972157e- 
9971775e- 
99713946- 
9971013e- 
9970631e- 
9970250e- 
9969868e- 
9969487e- 
9969106e- 
9968724e- 
9968343e- 
9967962e- 
9.9967580e- 
9.9967199e- 
9.9966818e- 
9.9966436e- 
9.9966055e- 
9.9965674e- 
9.9965292e- 
9.9964911e- 
9.9964530e- 
9.99641486- 
9.9963767e- 
9. 9963386e- 
9.9963004e- 
9.9962623e- 
9.9962242G- 
9.9961860e- 
9.9961479e- 
9.9961098e- 
9.9960716e- 
9.9960335e- 
9.9959954e- 
9.9959572e- 
9.99591916- 
9.9958810e- 
9.9958428e- 
9.9958047e- 
9.9957666e- 
9.9957285G- 
9.9956903e- 
9.99565226- 
9.9956141e- 
9.9955759e- 
9955378e- 
99549976- 
9954615e- 
9954234e- 
9953853e- 
9953472e- 
9953090e- 
9952709e- 
9952328e- 
9951946e- 
9951565e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 



9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 
9. 



9. 9980070e- 
9.99796896- 
9.9979307e- 
9.9978926e- 
9978545e- 
99781636- 
9977782e- 
9977400e- 
9977019e- 
99766386- 
9976256e- 
9975875e- 
9975494e- 
9.9975112e- 
9.9974731e- 
9.9974349e- 
9.9973968e- 
9.9973587e- 
9.9973205e- 
9.9972824e- 
9.9972443e- 
9.9972061e- 
9.9971680e- 
9971299e- 
9970917e- 
99705366- 
9970154e- 
9969773e- 
9969392e- 
9969010e- 
9968629e- 
9968248e- 
9967866e- 
9967485e- 
9967104e- 
9966722e- 
9966341e- 
9965960e- 
9965578e- 
9965197e- 
9964816e- 
9964434e- 
9964053e- 
9963672e- 
99632906- 
9962909e- 
9962528e- 
9962146e- 
9961765e- 
9961384e- 
9961002e- 
9960621e- 
9960240e- 
9959858e- 
9959477e- 
9959096e- 
9958714e- 
99583336- 
9957952e- 
9957570e- 
9957189e- 
99568086- 
99564276- 
9956045e- 
9955664e- 
9955283e- 
9954901e- 
9954520e- 
9954139e- 
9953757e- 
9.9953376e- 
9.9952995e- 
9.9952614e- 
9.9952232e- 
9.9951851e- 
9.9951470e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
•OOlf 
OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 



9.9979975e- 
9.9979593e- 
9.9979212e- 
9.9978831e- 
9.9978449e- 
9.9978068e- 
9.9977687e- 
9.9977305e- 
9.9976924e- 
,9976542e- 
.9976161e- 
.9975780e- 
.9975398e- 
.9975Q17e- 
.9974635e- 
.9974254e- 
.9973873e- 
,9973491e- 
.9973110e- 
.9972729e- 
.9972347e- 
.9971966e- 
,9971585e- 
.9971203e- 
.9970822e- 
.9970440e- 
.9970059e- 
.9969678e- 
.9969296e- 
.9968915e- 
.9968534e- 
.9968152e- 
.9967771e- 
9.9967390e- 
9.9967008e- 
9.9966627e- 
9.9966246e- 
9.9965864e- 
9.9965483e- 
9.9965102e- 
9.9964720e- 
9.9964339e- 
9.9963958e- 
.9963576e- 
.9963195e- 
.9962814e- 
.9962432e- 
.9962051e- 
9.9961670e- 
9.9961288e- 
9.9960907e- 
9.9960526e- 
9.9960144e- 
9.9959763e- 
9.9959382e- 
9.9959000e- 
9.9958619e- 
9.9958238e- 
9.9957856e- 
.9957475e- 
.9957094e- 
.9956713e- 
.9956331e- 
.9955950e- 
.9955569e- 
.9955187e- 
.9954806e- 
.9954425e- 
.9954043e- 
.9953662e- 
.9953281e- 
.9952900e- 
,9952518e- 
.9952137e- 
.9951756e- 
.9951374e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf, 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
■OOlf 
•OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 



9,9979879e- 
9.9979498e- 
9.9979117e- 
9,9978735e- 
.9978354e- 
.9977973e- 
,9977591e- 
.9977210e- 
,9976828e- 
.9976447e- 
.9976066e- 
,9975684e- 
,9975303e- 
.9974922e- 
,9974540e- 
,9974159e- 
9.9973777e- 
9.9973396e- 
9,9973015e- 
9,9972633e- 
9.9972252e- 
9.9971871e- 
9,9971489e- 
9.9971108e- 
9.9970726e- 
9.9970345e- 
9.9969964e- 
9.9969582e- 
9 t 9969201e- 
9.9968820e- 
9.9968438e- 
9.9968057e- 
9.9967676e- 
9.9967294e- 
9.9966913e- 
9.9966532e- 
9.9966150e- 
.9965769e- 
.9965388e- 
.9965006e- 
.9964625e- 
.9964244e- 
,9963862e- 
.9963481e- 
,9963100e- 
.99627186- 
.9962337e- 
.9961956e- 
.9961574e- 
.9961193e- 
.9960812e- 
.9960430e- 
( 9960049e- 
.9959668e- 
.9959286e- 
,9958905e- 
.9958524e- 
.9958142e- 
.9957761e- 
.9957380e- 
.9956999e- 
.9956617e- 
.9956236e- 
.9955855e- 
.9955473e- 
.9955092e- 
.9954711e- 
.9954329e- 
.9953948e- 
.9953567e- 
.9953186e- 
,9952804e- 
.9952423e- 
.9952042e- 
.9951660e- 
.9951279e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
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9.9951184e- 
9.9950803e- 
9.9950421e- 
9.9950040e- 
9.9949659e- 
9.9949277e- 
9. 9948896a- 
9.9948515e- 
9.9948134e- 
9.9947752e- 
9.9947371e- 
9.9946990e- 
9.9946608e- 
9.9946227e- 
9.9945846e- 
9.9945465e- 
9.9945083e- 
9.9944702e- 
9.9944321e- 
9.9943940e- 
9.9943558e- 
9.9943177e- 
9.9942796e- 
9.9942415e- 
9.9942033e- 
9.9941652e- 
9.9941271e- 
9.9940890e- 
9.9940508e- 
9.9940127e- 
9.9939746e- 
9.9939365e- 
9.9938983e- 
9.9938602e- 
9.9938221e- 
9.9937840e- 
9 .9937459e- 
9.9937077e- 
9.9936696e- 
9.9936315e- 
9.9935934e- 
9.9935552e- 
9.9935171e- 
9.9934790e- 
9.9934409e- 
9.9934028e- 
9.9933646e- 
9.9933265e- 
9.9932884e- 
9.9932503e- 
9.9932121e- 
9 .9931740e- 
9.9931359e- 
9.9930978e- 
9.9930597e- 
9.9930215e- 
9.9929834e- 
9.9929453e- 
9.9929072e- 
9.9928691e- 
9.9928309e- 
9.9927928e- 
9.9927547e- 
9.9927166e- 
9.9926785e- 
9.9926403e- 
9.9926022e- 
9.9925641e- 
9.9925260e- 
9.9924879e- 
9.9924498e- 
9.9924116e- 
9.9923735e- 
9.9923354e- 
9.9922973e- 
9.9922592e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
•OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
•OOlf 
•OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 



9.9951088e- 
9.9950707e- 
9.9950326e- 
9.9949945e- 
9.9949563e- 
9.9949182e- 
9.9948801e- 
9.9948420e- 
9.9948038e- 
9.9947657e- 
9.9947276e- 
9.9946894e- 
9.9946513e- 
9.9946132e- 
9.9945751e- 
9.9945369e- 
9.9944988e~ 
9.9944607e- 
9.9944226e- 
9. 9943844c- 
9.9943463e- 
9.9943082e- 
9.9942701e- 
9.9942319e- 
9.9941938e- 
9.9941557e- 
9.9941176e- 
9.9940794e- 
9. 9940413c- 
9.9940032e- 
.9939651e- 
.9939269e- 
.9938888e- 
.9938507e- 
.9938126e- 
9.9937744e- 
9.9937363e- 
9.9936982e- 
9.9936601e- 
9.9936220e- 
9.9935838e- 
9.9935457e- 
9.9935076e- 
9.9934695e- 
9.9934313e- 
9.9933932e- 
9.9933551e- 
9.9933170e- 
9.9932789e- 
9.9932407e- 
9.9932026e- 
9.9931645e- 
9.9931264e- 
9.9930883e- 
9.9930501e- 
9.9930120e- 
9.9929739e- 
9.9929358e- 
9.9928976e- 
9.9928595e- 
9.9928214e- 
9.9927833e- 
9.9927452e- 
9.9927071e- 
9.9926689e- 
.9926308e- 
,9925927e- 
.9925546e- 
.9925165e- 
.9924783e- 
9.9924402e- 
9.9924021e- 
9.9923640e- 
9.9923259e- 
9.9922878e- 
9.9922496e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
-OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 



9.9950993e- 
9.9950612e- 
9,9950231e- 
9.9949849e- 
9.9949468e- 
9.9949087e~ 
9.9948705e- 
9.9948324e- 
9.9947943e- 
9.9947562e- 
9.9947180e- 
9.9946799e- 
9.9946418e- 
9.9946037e- 
9.9945655e- 
9.9945274e- 
9.9944893e- 
9.9944512e- 
9.9944130e- 
9.9943749e- 
9.9943368e- 
9.9942987e- 
9.9942605e- 
9.9942224e- 
9.9941843e- 
9.9941462e- 
9.9941080e- 
9.9940699e- 
9.9940318e- 
9.9939937e- 
9.9939555e- 
9.9939174e- 
,9938793e- 
.9938412e- 
,9938030e- 
,9937649e- 
.9937268e- 
9.9936887e- 
9.9936505e- 
9.9936124e- 
9.9935743e- 
9.9935362e- 
9.9934981e- 
9.9934599e- 
9.9934218e- 
9.9933837e- 
9.9933456e- 
9.9933074e* 
9.9932693e- 
9.9932312e- 
9.9931931e- 
9.9931550e- 
9.9931168e- 
9.9930787e- 
9.9930406e- 
9.9930025e- 
9.9929644e- 
9.9929262e- 
9.9928881e- 
9.9928500e- 
9.9928119e- 
9.9927738e- 
.9927356e- 
,9926975e- 
.9926594e- 
.9926213e- 
,9925832e- 
9.9925450e- 
9.9925069e- 
9.9924688e- 
9.9924307e- 
9 ,9923926e- 
9.9923545e- 
9,9923163e- 
9.9922782e- 
9.9922401e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
•OOlf 
■OOlf 
OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
■OOlf 
•OOlf 
-OOlf 
■OOlf 
■OOlf 
-OOlf 
-OOlf 
■OOlf 
■OOlf 
•OOlf 
•OOlf 
■OOlf 
•OOlf 
•OOlf 
•OOlf 
■OOlf 
-OOlf 
•OOlf 
-OOlf 
•OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
•OOlf 
-OOlf 
-OOlf 
■OOlf 
■OOlf 
-OOlf 
-OOlf 
■OOlf 
•OOlf 



9.9950898e- 
9,9950517e- 
9,9950135e- 
9.9949754e- 
9,9949373e- 
9.9948991e- 
9,9948610e- 
9.9948229e- 
9.9947848e- 
9.9947466e- 
9.9947085e- 
9.9946704e- 
9.9946323e- 
9.9945941e- 
9.9945560e- 
9.9945179e- 
9.9944797e- 
9.9944416e- 
9.9944035e- 
9.9943654e- 
9.9943272e- 
9.9942891e- 
9,9942510e- 
9.9942129e- 
9.9941747e- 
9.9941366e- 
9.9940985e- 
9.9940604e- 
9.9940222e- 
9.9939841e- 
9.9939460e- 
9.9939079e- 
9.9938698e- 
9.9938316e- 
9.9937935e- 
9.9937554e- 
9.9937173e- 
9.9936791e- 
9.9936410e- 
9.9936029e- 
9.9935648e- 
9.9935266e- 
9.9934885e- 
9.9934504e- 
9.9934123e- 
9.9933742e- 
9.9933360e- 
9.9932979e- 
9.9932598e- 
9.9932217e- 
9.9931836e- 
9.9931454e- 
9.9931073e- 
9.9930692e- 
9.9930311e- 
9.9929929e- 
9.9929548e- 
9.9929167e- 
9.9928786e- 
9.9928405e- 
9.9928024e- 
9.9927642e- 
9.9927261e- 
9.9926880e- 
9.9926499e- 
9.9926118e- 
9.9925736e- 
9.9925355e- 
9.9924974e- 
9.9924593e- 
9.9924212e- 
9.9923830e- 
9.9923449e- 
9.9923068e- 
9.9922687e- 
9.9922306e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf f 
■OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
•OOlf, 
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9.9922210e- 
9.9921829e- 
9.9921448e- 
9.9921067e- 
9.9920686e- 
9.9920305e- 
9.9919923e- 
9.9919542e- 
9.9919161e- 
9.9918780e- 
9.9918399e- 
9.9918018e- 
9.9917636e- 
9.9917255e- 
9.9916874e- 
9.9916493e- 
9.9916112e- 
9.9915731e- 
9.9915350e- 
9.9914968e- 
9.9914587a- 
9.9914206e- 
9.9913825e- 
9.9913444e- 
9.9913063e- 
9.9912682e- 
9.9912300e- 
9.9911919e- 
9.9911538e- 
9.9911157e- 
9.9910776e- 
9.9910395e- 
9.9910014e- 
9.9909633e- 
9.9909251e- 
9.9908870e- 
9.9908489e- 
9.9908108e- 
9.9907727e- 
9.9907346e- 
.9906965e- 
.99065846- 
.9906202e- 
.9905821e- 
.9905440e- 
.9905059e- 
.9904678e- 
.9904297a- 
9.9903916e- 
9.9903535e- 
9.9903154e- 
9.9902773e- 
9.9902391e- 
9.9902010e- 
9.9901629e- 
9.9901248e- 
9.9900867e- 
9.9900486e- 
9.9900105e- 
9.9899724e- 
9.9899343e' 
9.9898962e- 
9.9898581e- 
9.9898199e- 
9.9897818e- 
9.9897437e- 
9.9897056e- 
9. 9896675a- 
9. 9896294a- 
9.9895913e- 
9.9895532e- 
9.9895151e- 
9.9894770e- 
9.9894389a- 
9.98940088' 
9.9893627e- 



•OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
-OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
-OOlf 
■OOlf 
-OOlf 
-OOlf 
■OOlf 
-OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
•OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 



,9922115e- 
.9921734a- 
.9921353e- 
.9920972e- 
,9920590e- 
,9920209e- 
9.9919828e- 
9.9919447e- 
9.9919066e- 
9.9918685e- 
9.9918304e- 
9.9917922e- 
9.9917541e- 
9.9917160e- 
9.9916779e- 
9.9916398e- 
9.9916017e- 
9.9915635e- 
9.9915254e- 
9.9914873e- 
9.9914492e- 
9.9914111e- 
9.9913730e- 
9.9913349e- 
9.9912967e- 
9.9912586e- 
9.9912205e- 
9. 9911824a- 
9.9911443e- 
9.9911062e- 
9.9910681e- 
9.9910300e- 
9.9909918e- 
9.9909537e- 
9.9909156e- 
9.9908775e- 
9.9908394e- 
9.9908013e- 
9.9907632e- 
9.9907251e- 
9.9906869e- 
9.9906488a- 
9.9906107e- 
9.9905726e- 
9.9905345e- 
9.9904964e- 
9.9904583e- 
9.9904202e- 
9.9903821e- 
9.9903439e- 
9.9903058e- 
9.9902677e- 
9.9902296e- 
9.9901915e- 
9.9901534e- 
9.9901153e- 
9.9900772e- 
9.9900391e 
9.9900010e- 
9. 9899629a- 
9.9899247e- 
9.9898866e- 
9.9898485e 
9.9898104e- 
9.9897723e 
9.9897342e- 
9.9896961e- 
9.9896580e- 
9.9896199e- 
9.9895818e 
9.9895437e- 
9.9895056e- 
9.9894674e- 
9.9894293e- 
9.9893912e 
9.9893531e- 



•OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
■OOlf 
•OOlf 
-OOlf 
-OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
•OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 



9.9922020e- 
9.9921639e- 
9.9921258e- 
9,9920876e- 
9,9920495e- 
9,9920114e- 
9.9919733e- 
9.9919352e- 
9.9918971e- 
.9918589e- 
.9918208e- 
.9917827e- 
.9917446e- 
.9917065e- 
9.9916684e- 
9.9916302e- 
9,9915921e- 
9,9915540e- 
9,9915159e- 
9.9914778e- 
9.9914397e- 
9.9914016e- 
9.9913634e- 
9.9913253e- 
.9912872e- 
,9912491e- 
,9912110e- 
.9911729e- 
.9911348e- 
.9910966e- 
9.9910585e- 
9.9910204e- 
9.9909823e- 
.9909442e- 
.9909061e- 
.9908680e- 
.9908299e- 
.9907917e- 
.9907536e- 
9.9907155e- 
9.9906774e- 
9.9906393e- 
9.9906012e- 
9.9905631e- 
.9905250e- 
.9904869e- 
.9904487e- 
.9904106e- 
,9903725e- 
.9903344e- 
.9902963e 
.9902582e- 
,9902201e 
9.9901820e- 
9.9901439e- 
.9901058e- 
,9900676e- 
.9900295e' 
.9899914e- 
,9899533e 
.9899152e- 
9.9898771e- 
9.9898390e- 
9.9898009e- 
9.9897628e- 
9.9897247e- 
9.9896866e- 
9.9896485e 
9.9896104e- 
9.9895722e- 
9.9895341e- 
9.9894960e 
9.9894579e- 
9.9894198e- 
9.9893817e 
9.9893436e- 



■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
-OOlf, 
■OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
■OOlf 
■OOlf 
•OOlf 
-OOlf 
-OOlf 
-OOlf 
•OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 



9.9921925e- 
9.9921543e- 
9.9921162e- 
9.9920781e- 
9.9920400e- 
9.9920019e- 
9.9919638e- 
9.9919256e- 
9.9918875e- 
9.9918494e- 
9.9918113e- 
9.9917732e- 
9.9917351e- 
9.9916969e- 
9.9916588e- 
9.9916207e- 
9.9915826e- 
9.9915445e- 
9.9915064e- 
9.9914683e- 
9.9914301e- 
9.9913920e- 
9.9913539e- 
9.9913158e- 
9.9912777e- 
9.9912396e- 
9.9912015e- 
9.9911633e- 
9.9911252e- 
9.9910871e- 
9.9910490e- 
9.9910109e- 
9.9909728e- 
9.9909347e- 
9.9908966e- 
9.9908584e- 
9.9908203e- 
9.9907822e- 
,9907441e- 
,9907060e- 
,9906679e- 
,9906298e- 
,9905917e- 
,9905536e- 
9.9905154e- 
9.9904773e- 
9.9904392e- 
9.9904011e- 
9.9903630e- 
9.9903249e- 
9.9902868e- 
9.9902487e- 
9.9902106e- 
9,9901725e- 
9.9901343e- 
9.9900962e- 
9.9900581e- 
9.9900200e- 
9.9899819e- 
9.9899438e- 
9.9899057e- 
9.9898676e- 
9.9898295e- 
9.9897914e- 
9.9897533e- 
9.9897151e- 
.9896770e- 
.9896389e- 
t 9896008e- 
.9895627e- 
.9895246e- 
,9894865e- 
9,9894484e- 
9.9894103e- 
9.9893722e- 
9.9893341e- 



OOlf f 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
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9 


. 9893245e- 


-OOlf 


9 


ft ft ft ft ft jfl — . 

. 9892864e- 


-OOlf 


9 


. 9892483e- 


-OOlf 


9 


. 9892102e- 


-OOlf 


9 


. 9891721e- 


-OOlf 


9 


. 9891340e- 


-OOlf 


9 


. 9890959e- 


-OOlf 


9 


. 9890578e- 


-OOlf 


9 


. 9890197e- 


-OOlf 


9 


. 9889816e- 


-OOlf 


9 


ft ft ft ft a ft i— 

. 9889435e- 


-OOlf 


9 


noorirtc yi« 

. 98o9U54e- 


-OOlf 


9 


. 9888673e- 


-OOlf 


9 


r\ ri o n /-i 

. 9888292e- 


-OOlf 


9 


ft ft ft ^ ft *i *i 

. 9887911e- 


-OOlf 


9 


. 9887530e- 


•OOlf 


9 


. 9887149e- 


•OOlf 


9 


. 9886768e- 


-OOlf 


9 


. 9886387e- 


-OOlf 


9 


. 9886006e- 


-OOlf 


9 


.9885625e- 


-OOlf 


9 


. 9885244e- 


-OOlf 


9 


. 9884862e- 


OOlf 


9 


.9884481e- 


-OOlf 


9 


. 9884100e- 


OOlf 


9 


. 9883719e- 


OOlf 


9 


. 9883338e- 


OOlf 


9 


. 9882957e- 


OOlf 


9 


ft ft ft ft i— i-j /*- 

. 9882576e- 


OOlf 


9 


ft ft ft ft ^ ft r~ ^ 

. 9882195e- 


OOlf 


9 


. 9881814e- 


OOlf 


9 


. 9881433e- 


OOlf 


9 


,9881052e- 


OOlf 


9 


.9880671e- 


OOlf 


9 


.9880290e- 


OOlf 


9 


.9879909e- 


OOlf 


9 


.9879528e- 


OOlf 


9 


.9879147e- 


OOlf 


9 


.9878766e- 


OOlf 


9 


9878385e- 


OOlf 


9 


9878004e- 


OOlf 


9 


9877623e- 


OOlf 


9 


9877242e- 


OOlf 


9 


9876861e- 


OOlf 


9 


9876480e- 


OOlf 


9 


9876099e- 


OOlf 


9 


9875718e- 


OOlf 


9 


9875337e- 


OOlf 


9 


9874956e- 


OOlf 


9 


9874575e- 


OOlf 


9 


9874194e- 


OOlf 


9 


9873813e- 


OOlf 


9 


9873432e- 


OOlf 


9 


9873051e- 


OOlf 


9 


9872670e- 


OOlf 


9 


9872289e- 


OOlf 


9 


9871908e- 


OOlf 


9 


9871527e- 


OOlf 


9 


9871146e- 


OOlf 


9 


9870765e- 


OOlf 


9 


9870384e- 


OOlf 


9 


9870003e- 


OOlf 


9 


9869622e- 


OOlf 


9 


9869241e- 


OOlf 


9 


9868860e- 


OOlf 


9 


9868480e- 


OOlf 


9 


9868099e- 


OOlf 


9 


9867718e- 


OOlf 


9 


9867337e- 


OOlf 


9 


9866956e- 


OOlf 


9 


9866575e- 


OOlf 


9. 


9866194e- 


OOlf 


9 


9865813e- 


OOlf 


9. 


9865432e- 


OOlf 


9. 


9865051e- 


OOlf 


9. 


9864670e- 


OOlf 



9 


ft ft ft i *i r* ft 

. 9893150e- 


-OOlf , 


9 


. 9892769e- 


-OOlf, 


9 


. 9892388e- 


-OOlf, 


9 


. 9892007e- 


-OOlf, 


9 


. 9891626e- 


-OOlf, 


9 


ft ft ft 1 ft A V ^ 

. 9891245e- 


-OOlf, 


9 


. 9890864e- 


-OOlf, 


9 


. 9890483e- 


-OOlf, 


9 


. 9890102e- 


-OOlf, 


9 


. 9889721e- 


-OOlf, 


9 


. 9889340e- 


-OOlf, 


9 


ftftftftft^ft — 

. 9888959e- 


-OOlf , 


9 


ftftftftr~r-ift^ 

. 9888578e- 


-OOlf, 


9 


ft ft ft ft *i ft ~7 — 

. 9888197e- 


-OOlf, 


9 


. 9887816e- 


-OOlf, 


9 


. 9887434e- 


-OOlf, 


9 


. 9887053e- 


-OOlf, 


9 


. 9886672e- 


-OOlf, 


9 


ft ft ft /~ ft ft i 

. 9886291e- 


-OOlf, 


9 


. 9885910e- 


-OOlf, 


9 


. 9885529e- 


-OOlf, 


9 


. 9885148e- 


-OOlf, 


9 


. 9884767e- 


-OOlf, 


9 


.9884386e- 


-OOlf, 


9 


. 9884005e- 


-OOlf, 


9 


. 9883624e- 


-OOlf, 


9 


ft ft ft ft ft A 

. 9883243e- 


-OOlf, 


9 


. 9882862e- 


-OOlf, 


9 


. 9882481e- 


-OOlf, 


9 


. 9882100e- 


-OOlf, 


9 


. 9881719e- 


-OOlf, 


9 


9881338e- 


-OOlf, 


9 


9880957e- 


-OOlf, 


9 


9880576e- 


-OOlf, 


9 


9880195e- 


-OOlf, 


9 


.9879814e- 


-OOlf, 


9 


9879433e- 


-OOlf, 


9 


9879052e- 


-OOlf, 


9 


9878671e- 


-OOlf, 


9 


9878290e- 


-OOlf, 


9 


9877909e- 


-OOlf, 


9 


9877528e- 


-OOlf, 


9 


9877147e- 


-OOlf, 


9 


9876766e- 


•OOlf, 


9 


9876385e- 


-OOlf, 


9 


9876004e- 


-OOlf, 


9 


9875623e- 


-OOlf, 


9 


9875242e- 


-OOlf, 


9 


9874861e- 


•OOlf, 


9 


9874480e- 


-OOlf, 


9 


9874099e- 


-OOlf, 


9 


9873718e- 


-OOlf, 


9 


9873337e- 


-OOlf, 


9 


9872956e- 


OOlf, 


9 


9872575e- 


OOlf, 


9 


9872194e- 


OOlf, 


9 


9871813e- 


OOlf, 


9 


9871432e- 


OOlf, 


9 


9871051e- 


OOlf, 


9 


9870670e- 


OOlf, 


9 


9870289e- 


OOlf, 


9 


9869908e- 


OOlf, 


9 


9869527e- 


OOlf, 


9 


9869146e- 


OOlf, 


9 


9868765e- 


OOlf, 


9 


9868384e- 


OOlf, 


9 


9868003e- 


OOlf, 


9 


9867622e- 


OOlf, 


9 


9867241e- 


OOlf, 


9 


9866860e- 


OOlf, 


9 


ft ft /" /~ A *~7 ft 

9866479e- 


OOlf, 


9 


9866098e- 


OOlf, 


9 


9865718e- 


OOlf, 


9 


9865337e- 


OOlf, 


9. 


9864956e- 


OOlf, 


9. 


9864575e- 


OOlf, 



9 


. 9893055e- 


-OOlf, 


9 


. 9892674e- 


-OOlf, 


9 


. 9892293e- 


-OOlf, 


9 


ft ft ft *i r*\ -i ft 

. 9891912e- 


-OOlf, 


9 


. 9891531e- 


-OOlf, 


9 


. 9891150e- 


-OOlf, 


9 


. 9890769e- 


-OOlf, 


9 


. 9890388e- 


-OOlf, 


9 


. 9890007e- 


-OOlf, 


9 


. 9889625e- 


-OOlf, 


9 


. 9889244e- 


-OOlf, 


9 


. 9888863e- 


-OOlf, 


9 


ft ft ft ft A ft ft 

. 9888482e- 


-OOlf, 


9 


ft ft ft ft i ft -i 

. 9888101e- 


-OOlf, 


9 


. 9887720e- 


-OOlf, 


9 


ftftft^Tft^ftft — 

. 9887339e- 


-OOlf, 


9 


,9886958e- 


-OOlf, 


9 


. 9886577e- 


-OOlf, 


9 


. 9886196e- 


-OOlf, 


9 


. 9885815e- 


-OOlf, 


9 


,9885434e- 


-OOlf, 


9 


. 9885053e- 


-OOlf, 


9 


. 9884672e- 


-OOlf, 


9 


.9884291e- 


-OOlf, 


9 


. 9883910e- 


-OOlf, 


9 


. 9883529e- 


-OOlf, 


9 


ft ft ft ft *1 A ft 

. 9883148e- 


-OOlf, 


9 


. 9882767e- 


-OOlf, 


9 


. 9882386e- 


-OOlf, 


9 


ft ft ft ft ft ft i— 

. 9882005e- 


-OOlf, 


9 


, 9881624e- 


-OOlf, 


9 


. 9881243e- 


-OOlf, 


9 


. 9880862e- 


-OOlf, 


9 


.9880481e- 


-OOlf, 


9 


,9880100e- 


•OOlf, 


9 


.9879719e- 


-OOlf, 


9 


.9879338e- 


-OOlf, 


9 


.9878957e- 


-OOlf, 


9 


.9878576e- 


-OOlf, 


9 


,9878195e- 


-OOlf, 


9 


.9877814e- 


-OOlf, 


9 


9877433e- 


-OOlf, 


9 


9877052e- 


OOlf, 


9 


9876671e- 


OOlf, 


9 


9876290e- 


OOlf, 


9 


9875909e- 


OOlf, 


9 


9875528e- 


OOlf, 


9 


9875147e- 


OOlf, 


9 


9874766e- 


OOlf, 


9 


9874385e- 


OOlf, 


9 


9874004e- 


OOlf, 


9 


9873623e- 


OOlf, 


9 


9873242e- 


OOlf, 


9 


9872861e- 


OOlf, 


9 


9872480e- 


OOlf, 


9 


9872099e- 


OOlf, 


9 


9871718e- 


OOlf, 


9 


9871337e- 


OOlf, 


9 


9870956e- 


OOlf, 


9 


9870575e- 


OOlf, 


9 


9870194e- 


OOlf, 


9 


9869813e- 


OOlf, 


9 


9869432e- 


OOlf, 


9 


9869051e- 


OOlf, 


9 


9868670e- 


OOlf, 


9 


9868289e- 


OOlf, 


9 


9867908e- 


OOlf, 


9 


9867527e- 


OOlf, 


9 


9867146e- 


OOlf, 


9 


9866765e- 


OOlf, 


9 


9866384e- 


OOlf, 


9 


9866003e- 


OOlf, 


9 


9865622e- 


OOlf, 


9 


9865241e- 


OOlf, 


9 


9864860e- 


OOlf, 


9 


9864479e- 


OOlf, 



9 


ft ft ft ft ft y ft 

. 9892960e- 


-OOlf , 


9 


. 9892579e- 


-OOlf, 


9 


. 9892l98e- 


-OOlf, 


9 


. 989l817e- 


-OOlf, 


9 


. 9891435e- 


-OOlf, 


9 


ftftft^ ft^ A — 

. 9891054e- 


-OOlf, 


9 


. 9890673e- 


-OOlf, 


9 


. 9890292e- 


-OOlf, 


9 


. 9889911e- 


-OOlf, 


9 


. 9889530e- 


-OOlf, 


9 


. 9889l49e- 


-OOlf, 


9 


ftftftft^/^ft— . 

. 9888768e- 


-OOlf, 


9 


ftftftftft ft 1 ™? 

. 9888387e- 


-OOlf, 


9 


. 9888006e- 


-OOlf, 


9 


ft ft ft *™j ft r - 

. 9887625e- 


-OOlf, 


9 


ftftftnft a a 

. 9887244e- 


-OOlf, 


9 


. 9886863e- 


-OOlf, 


9 


. 9886482e- 


-OOlf, 


9 


ft ft ft /" *1 ft *T 

. 9886101e- 


-OOlf, 


9 


. 9885720e- 


-OOlf, 


9 


. 9885339e- 


-OOlf, 


9 


. 9884958e- 


-OOlf, 


9 


. 9884577e- 


-OOlf, 


9 


.9884196e- 


-OOlf, 


9 


. 9883815e- 


-OOlf, 


9 


. 9883434e~ 


-OOlf, 


9 


. 9883053e- 


-OOlf, 


9 


. 9882672e- 


-OOlf, 


9 


ft ft ft ft ft ft *i 

. 9882291e- 


-OOlf, 


9 


. 9881910e- 


-OOlf, 


9 


. 9881529e- 


-OOlf, 


9 


. 9881147e- 


-OOlf, 


9 


. 9880766e- 


-OOlf, 


9 


.9880385e- 


-OOlf, 


9 


.9880004e- 


-OOlf, 


9 


.9879623e- 


-OOlf, 


9 


.9879242e- 


-OOlf, 


9 


.9878861e- 


-OOlf, 


9 


.9878480e- 


-OOlf, 


9 


.9878099e- 


-OOlf, 


9 


.9877718e- 


OOlf, 


9 


. 9877337e- 


OOlf, 


9 


. 9876956e- 


OOlf, 


9 


. 9876575e- 


OOlf, 


9 


. 9876194e- 


OOlf, 


9 


. 9875813e- 


OOlf, 


9 


. 9875432e- 


OOlf, 


9 


. 9875051e- 


OOlf, 


9 


.9874670e- 


OOlf, 


9 


. 9874289e- 


OOlf, 


9 


.9873908e- 


OOlf, 


9 


.9873527e- 


OOlf, 


9 


. 9873146e- 


OOlf, 


9 


.9872765e- 


OOlf, 


9 


. 9872385e- 


OOlf, 


9 


. 9872004e- 


OOlf, 


9 


,9871623e- 


OOlf, 


9 


.9871242e- 


OOlf, 


9 


. 9870861e- 


OOlf, 


9 


.9870480e- 


OOlf, 


9 


.9870099e- 


OOlf, 


9 


9869718e- 


OOlf, 


9 


9869337e- 


OOlf, 


9 


9868956e- 


OOlf, 


9 


9868575e- 


OOlf, 


9 


9868194e- 


OOlf, 


9 


9867813e- 


OOlf, 


9 


9867432e- 


OOlf, 


9 


9867051e- 


OOlf, 


9 


9866670e- 


OOlf, 


9 


9866289e- 


OOlf, 


9 


9865908e- 


OOlf, 


9 


9865527e- 


OOlf, 


9. 


9865146e- 


OOlf, 


9. 


9864765e- 


OOlf, 


9. 


9864384e- 


OOlf, 
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9.9864289e- 
9.9863908e- 
.9863527e- 
.9863146e- 
.9862765e- 
.9862384e- 
,9862003e- 
9.9861622e- 
9.9861241e- 
9.9860860e- 
9.9860480e- 
9.9860099e- 
9.9859718e- 
9.9859337e- 
9.9858956e- 
9.9858575e- 
9.9858194e- 
9.9857813e- 
9.9857432e- 
9.9857051e- 
9,9856670e- 
9.9856289e- 
9.9855908e- 
9.9855527e- 
9.9855147e- 
9.9854766e- 
.9854385e- 
,9854004e- 
.9853623e- 
,9853242e- 
,9852861e- 
9.9852480e- 
9.9852099e- 
.9851718e- 
.9851337e- 
,9850957e- 
.9850576e- 
.9850195e- 
.9849814e- 
.9849433e- 
.9849052e- 
.9848671e- 
.9848290e- 
.9847909e- 
.9847528e- 
.9847148e- 
.9846767e- 
.9846386e- 
.9846005e- 
.9845624e- 
.9845243e- 
.9844862e- 
.9844481e- 
.9844101e- 
.9843720e- 
.9843339e- 
.9842958e- 
9.9842577e- 
9.9842196e- 
9.9841815e- 
.9841434e- 
.9841054e- 
.9840673e- 
.9840292e- 
.9839911e- 
9.9839530e- 
9.9839149e- 
.9838768e- 
.9838388e- 
.9838007e- 
.9837626e- 
.9837245e- 
.9836864e- 
9.9836483e- 
9.9836102e- 
9.9835722e- 



OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 



.9864194e- 
,9863813e- 
.9863432e- 
.9863051e- 
.9862670e- 
.9862289e- 
.9861908e- 
,9861527e- 
.9861146e- 
.9860765e- 
.9860384e- 
.9860003e- 
.9859622e- 
.9859241e- 
.9858861e- 
9.9858480e- 
9.9858099e- 
9,9857718e- 
9.9857337e- 
9.9856956e- 
9.9856575e- 
9.9856194e- 
9.9855813e- 
9.9855432e- 
9.9855051e- 
9.9854670e- 
9.9854289e- 
9.9853909e- 
9.9853528e- 
.9853147e- 
.9852766e- 
.9852385e- 
.9852004e- 
.9851623e- 
.9851242e- 
9.9850861e- 
9.9850480e- 
9.9850099e- 
9.9849719e- 
9.9849338e- 
9.9848957e- 
9.9848576e- 
9.9848195e- 
9.9847814e- 
9.9847433e- 
9.9847052e- 
9.9846671e- 
9.9846291e- 
9.9845910e- 
9.9845529e- 
9.9845148e- 
9.9844767e- 
9.9844386e- 
9.9844005e- 
9.9843624e- 
9.9843244e- 
9.9842863e- 
.9842482e- 
.9842101e- 
.9841720e- 
.9841339e- 
.9840958e- 
.9840577e- 
.9840197e- 
.9839816e- 
.9839435e- 
9.9839054e- 
9.9838673e- 
9.9838292e- 
9.9837912e- 
9.9837531e- 
9.9837150e- 
9.9836769e- 
9.9836388e- 
9.9836007e- 
9.9835626e- 



OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
OOlf 



9.9864098e- 
9.9863718e- 
9.9863337e- 
9.9862956e- 
9.9862575e- 
9862194e- 
9861813e- 
9861432e- 
9861051e- 
9860670e- 
9860289e- 
9859908e- 
9859527e- 
9859146e- 
9858765e- 
9858384e- 
9858003e- 
9857623e- 
9.9857242e- 
9.9856861e- 
9.9856480e- 
9.9856099e- 
9855718e- 
9855337e- 
9854956e- 
9854575e- 
9854194e- 
9853813e- 
9853432e- 
9853051e- 
9852671e- 
9852290e- 
9851909e- 
9851528e- 
9851147e- 
9850766e- 
9850385e- 
9850004e- 
9849623e- 
9849242e- 
9.9848862e- 
9.9848481e- 
9.9848100e- 
9.9847719e- 
9.9847338e- 
9846957e- 
9846576e- 
9846195e- 
9845814e- 
9845434e- 
9845053e- 
9844672e- 
9844291e- 
9.9843910e- 
9.9843529e- 
9.9843148e- 
9.9842767e- 
9.9842387e- 
9.9842006e- 
9.9841625e- 
9.9841244e- 
9.9840863e- 
9.9840482e- 
9.9840101e- 
9839721e- 
9839340e- 
9838959e- 
9838578e- 
9838197e- 
9.9837816e- 
9.9837435e- 
9.9837055e- 
9.9836674e- 
9.9836293e- 
9.9835912e- 
9.9835531e- 



9. 
9. 
9. 
9. 
9. 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
OOlf 
OOlf 
OOlf 



9.9864003e- 
9.9863622e- 
9.9863241e- 
9.9862860e- 
9.9862479e- 
9.9862098e- 
9.9861718e- 
9,9861337e- 
9.9860956e- 
9.9860575e- 
9,9860194e- 
9,9859813e- 
9.9859432e- 
9.9859051e- 
9858670e- 
9858289e- 
9857908e- 
9857527e- 
9857146e- 
9856765e- 
9856385e- 
9856004e- 
9855623e- 
9855242e- 
9854861e- 
9854480e- 
9854099e- 
9853718e- 
9853337e- 
9852956e- 
9852575e- 
9852194e- 
9851814e- 
9,9851433e- 
9.9851052e- 
9.9850671e- 
9.9850290e- 
9849909e- 
9849528e- 
9849147e- 
9848766e- 
9848385e- 
9848005e- 
9847624e- 
9847243e- 
9846862e- 
9846481e- 
9846100e- 
9845719e- 
9845338e- 
9844958e- 
9844577e- 
9844196e- 
9843815e- 
9843434e- 
9843053e- 
9842672e- 
9842291e- 
9841911e- 
9841530e- 
9841149e- 
9840768e- 
9.9840387e- 
9.9840006e- 
9.9839625e- 
9,9839244e- 
9.9838864e- 
9.9838483e- 
9.9838102e- 
9837721e- 
9837340e- 
9836959e- 
9836579e- 
9836198e- 
9835817e- 
9835436e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
•OOlf, 
•OOlf, 
•OOlf, 
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9.9835341e-001f , 
9.9834960e-0011, 
9.9834579e-001f , 
9.9834198e-001f , 
9.9833817e-001f , 
9.9833437e-001f , 

9.9833056e-ooif , 

9.9832675e-001f , 
9.9832294e-00l£ J 
9.9831913e-001f , 
9.9831532e-0011 ( 
9.98311526-0011, 
9.9830771e-0011 i 
9.9830390e-001f , 
9.9830009e-0011 , 
9.9829628e-0011 , 
9.9829248e-001f , 
9.9828867e-001f , 
9.9828486e-001f t 
9.9828105e-001f , 
9.9827724e-001f , 
9.9827343e-001f , 
9.9826963e-0011 , 
9.9826582e-0011, 
9.9826201e-001f , 
9.9825820e-001f , 
9.9825439e-001f , 
9.9825059e-001f , 
9.9824678e-0011, 
9.9824297e-0011 
9.9823916e-0011, 
9.9823535e-001f 
9.9823155e-001f 
9.9822774e-001f 
9.9822393e-0011 
9.9822012e-001f 
9.9821631e-001f 
9.9821251e-001f 
9.9820870e-001f 
9.9820489e-001f 
9.9820108e-001f 
9.9819728e-001f 
9.9819347e-001f 
9.9818966e-001f 
9.9818585e-001f 
9.9818204e-001f 
9.9817824e-001f 
9.9817443e-0011 
9.9817062e-0011 
9.9816681e-001f 
9.9816301e-001t 
9.9815920e-0011 
9.9815539e-0011 
9.9815158e-001f 
9.9814777e-0011 
9.9814397e-001f 
9.9814016e-001f 
9.9813635e-001f 
9.9813254e-0011 
9.9812874e-001f 
9.9812493e-001f 
9.9812112e-001f 
9.9811731e-001f 
9.9811351e-001f 
9.9810970e-0011 
9.9810589e-001f 
9.9810208e-0011 
9.9809828e-0011 
9.9809447e-001f 
9.9809Q66e-0Ql£ 
9.9808685e-0011 
9.9808305e-001f 
9.9807924e-001f 
9.9807543e-001f 
9.9807162e-001f 
9.9806782e-0011 



9.9835246e-0011 t 
9.9834865e-0011 , 
9.9834484e-0011, 
9.9834103e-001t , 
9.9833722e-001f , 
9.9833341e-001f , 
9.9832961e-0011, 
9.9832580e-001f , 
9.9832199e-001f , 
9.9831818e-001f t 
9.9831437e-001f , 
9.9831056e-001f , 
9.9830676e-001f t 
9.9830295e-001f { 
9.9829914e-0011 ( 
9.9829533e-001f , 
9.9829152e-001f , 
9.9828771e-001f , 
9.9828391e-001f . 
9.9828010e-001f , 
9.9827629e-0011, 
9.9827248e-001f , 
9.9826867e-0011 
9,9826487e-0011 . 
9.9826106e-001f . 
9.9825725e-001f , 
9.9825344e-001f , 
9.9824963e-001f 
9.98245836-0011 
9.9824202e-0011 
9.9823821e-0011 
9.9823440e-001f 
9.9823059e-001f 
9.9822679e-001f 
9.9822298e-001f 
9.9821917e-0011 
9.9821536e-001f 
9.9821155e-0011 
9.9820775e-001f 
9.9820394e-0011 
9.9820013e-001f 
9.9819632e-001f 
9.9819252e-0011 
9.9818871e-001f 
9.9818490e-001f 
9.9818109e-001f 
9.9817728e-001f 
9.9817348e-001f 
9.9816967e-001f 
9.9816586e-001f 
9.9816205e-001f 
9.9815825e-001f 
9.9815444e-001f 
9.9815063e-0011 
9.9814682e-001f 
9.9814302e-001f 
9.9813921e-0011 
9.9813540e-001f 
9.9813159e-001f 
9.9812778e-001f 
9.9812398e-0011 
9.9812017e-001f 
9.9811636e-0011 
9.9811255e-001f 
9.9810875e-001f 
9.9810494e-001f 
9.9810113e-001f 
9.9809732e-001f 
9.9809352e-001f 
9.9808971e-0011 
9.9808590e-001f 
9.9808210e-001f 
9.9807829e-001f 
9.9807448e-0011 
9.9807067e-001f 
9.9806687e-001f 



9.9835150e-001f , 
9.9834770e-001f , 
9.9834389e-001f ( 
9.9834008e-001£ , 
9.9833627e-001f , 
9.9833246e-001f , 
9.9832865e-0011 , 
9.9832485e-0011, 
9.9832104e-001f , 
9.9831723e-0011 , 
9.9831342e-001f , 
9.9830961e-0Ql£ , 
9.9830580e-0011 ( 
9.9830200e-001f , 
9*9829819e-0011 , 
9.9829438e-001f ; 
9,9829057e-001f , 
9,9828676e~0011 ( 
9.9828295e-001f , 
9,9827915e-001f , 
9.9827534e-001f , 
9.9827153e-001£ , 
9.9826772e-001f , 
9,9826391e-0011, 
9.9826011e-001f . 
9.9825630e-001£ , 
9.9825249e-001f 
9.9824868e-001f , 
9.9824487e-001f . 
9.9824107e-0011. 
9.9823726e-001f , 
9,9823345e-0011 
9,9822964e-001f, 
9.9822583e-0011 
9.98222036-0011 
9.9821822e-001f 
9,9821441e-001f 
9.9821060e-001f 
9.9820679e-0011 
9.9820299e-001f 
9.9819918e-0011 
9.9819537e-001f 
9.9819156e-0011 
9.9818776e-0011 
9.9818395e-0011 
9.9818014e-001f 
9.98l7633e-0011 
9.9817252e-001f 
9.9816872e-001f 
9.9816491e-001f 
9.9816110e-001f 
9.9815729e-001f 
9.9815349e-001f 
9.9814968e-001f 
9.9814587e-0011 
9.9814206e-001f 
9.9813826e-001f 
9.9813445e-001f 
9.9813064e-001f 
9.9812683e-001f 
9.9812303e-001f 
9.9811922e-001£ 
9.9811541e-001f 
9.9811160e-001f 
9.9810780e-001f 
9.9810399e-0011 
9.9810018e-001f 
9.9809637e-001f 
9.9809257e-001f 
9.9808876e-001f 
9.9808495e-0011 
9.9808114e-001f 
9.9807734e-001f 
9.9807353e-001f 
9.9806972e-001t 
9.9806591e-0011 



9.9835055e-001f , 
9.9834674e-0011 , 
9.9834293e-001f , 
9.9833913e-001f , 
9.9833532e-0011 , 
9.9833151e-001f , 
9.9832770e-0011 , 
9.9832389e-0011 , 
9.9832008e-0011 , 
9.9831628e-0011 , 
9.98312476-0011, 
9.9830866e-0011 , 
9.9830485e-0011 , 
9.9830104e-001f , 
9.9829724e-0011 , 
9.9829343e-0011 , 
9.9828962e-0011 , 
9.9828581e-0011 , 
9.9828200e-0011 , 
9.9827819e-001f , 
9.9827439e-0011 , 
9.9827058e-0011 , 
9.9826677e-001f , 
9.9826296e-001f , 
9.9825915e-001f , 
9.9825535e-001f , 
9.9825154e-001f , 
9.9824773e-001f , 
9.9824392e-001f , 
9.9824011e-001f , 
9.9823631e-001f , 
9.9823250e-001f , 
9.9822869e-001f , 
9.9822488e-001f , 
9.9822107e-001f , 
9.9821727e-001f , 
9.9821346e-001f , 
9.9820965e-001f , 
9.9820584e-001f , 
9.9820203e-001f , 
9.98198236-0011, 
9.9819442e-001f , 
9.9819061e-001f , 
9.9818680e-001f , 
9.9818300e-001f , 
9.9817919e-001f , 
9.9817538e-001f f 
9.9817157e-001f , 
9.98167766-0011, 
9.98163966-0011, 
9.98160156-0011, 
9.9815634e-001£, 
9.9815253e-001f , 
9.9814873e-0011, 
9.98144926-0011, 
9.9814111e-001£, 
9.9813730e-001f f 
9.9813350e-001f , 
9.9812969e-0011, 
9.9812588e-0011, 
9.9812207e-0011, 
9.9811827e-001£, 
9.9811446e-0011, 
9.98110656-0011, 
9.9810684e-0011, 
9.9810304e-001f , 
9.9809923e-001f , 
9.9809542e-0011, 
9.9809161e-0011, 
9.9808781e-0011, 
9.9808400e-0011, 
9.9808019e-0011, 
9.9807638e-0011, 
9.9807258e-0011, 
9.9806877e-0011, 
9.9806496e-0011, 
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9.9806401e-001f , 
9.9806020e-001f , 
9.9805640e-001f , 
9.9805259e-001f , 



9.9806306e-001f , 
9.9805925e-001f , 
9.9805544e-001f , 
9.9805164e-001f , 



#else /*_MSC_VER ScSc _M„IX86*/ 



9.9999952e- 
9.9999571e- 
9.9999189e- 
9.9998808e- 
9.9998426e- 
9.9998045e- 
9.9997664e- 
9.9997282e- 
9.9996901e- 
9.9996519e- 
9.9996138e- 
9.9995756e- 
9.9995375e- 
9.9994993e- 
9.9994612e- 
9.9994230e- 
9.9993849e- 
9.9993468e- 
9.9993086e- 
9.9992705e- 
9.9992323e- 
9.9991942e- 
9.9991560e- 
9.9991179e- 
9.9990797e~ 
9.9990416e- 
9.9990035e- 
9.9989653e- 
9.9989272e- 
9.9988890e- 
9.9988509e- 
9.9988127e- 
9.9987746e- 
9.9987365e- 
9.9986983e- 
9.9986602e- 
9.9986220e- 
9.9985839e- 
9.9985458e- 
9.9985076e- 
9.9984695e- 
9.9984313e- 
9.9983932e- 
9.9983550e- 
9.9983169e~ 
9.9982788e- 
9.9982406e- 
9.9982025e- 
9.9981643e- 
9.9981262e- 
9.9980881e- 
9.9980499e- 
9.9980118e- 
9.9979736e- 
9.9979355e- 
9.9978974e- 
9.9978592e- 
9.9978211e- 
9.9977830e- 
9.9977448e- 
9.9977067e- 
9.9976685e- 
9.9976304e- 
9.9975923e- 
9.9975541e- 
9.9975160e- 
9.9974778e- 
9.9974397e- 
9.9974016e- 



OOlf , 


9 


9999857e- 


OOlf 


OOlf , 


9 


9999475e- 


OOlf 


OOlf, 


9 


9999094e- 


OOlf 


OOlf, 


9 


9998713e- 


OOlf 


OOlf, 


9 


9998331e- 


OOlf 


OOlf, 


9 


9997950e- 


OOlf 


OOlf, 


9 


9997568e- 


OOlf 


OOlf, 


9 


9997187e- 


OOlf 


OOlf, 


9 


9996805e- 


OOlf 


OOlf, 


9 


9996424e- 


OOlf 


OOlf, 


9 


9996042e- 


OOlf 


OOlf, 


9 


9995661e- 


OOlf 


OOlf, 


9 


9995279e- 


OOlf 


OOlf, 


9 


9994898e- 


OOlf 


OOlf, 


9 


9994517e- 


OOlf 


OOlf, 


9 


9994135e- 


OOlf 


OOlf, 


9 


9993754e- 


OOlf 


OOlf, 


9 


9993372e- 


OOlf 


OOlf, 


9 


9992991e- 


OOlf 


OOlf, 


9 


9992609e- 


OOlf 


OOlf, 


9 


9992228e- 


OOlf 


OOlf, 


9 


9991846e- 


OOlf 


OOlf, 


9 


9991465e- 


OOlf 


OOlf, 


9 


9991084e- 


OOlf 


OOlf, 


9 


9990702e- 


OOlf 


OOlf, 


9 


9990321e- 


OOlf 


OOlf, 


9 


9989939e- 


OOlf 


OOlf, 


9 


9989558e- 


OOlf 


OOlf, 


9 


9989176e- 


OOlf 


OOlf, 


9 


9988795e- 


OOlf 


OOlf, 


9 


9988414e- 


OOlf 


OOlf, 


9 


9988032e- 


OOlf 


OOlf, 


9 


9987651e- 


OOlf 


OOlf, 


9 


9987269e- 


OOlf 


OOlf, 


9 


9986888e- 


OOlf 


OOlf, 


9 


9986506e- 


OOlf 


OOlf, 


9 


9986125e- 


OOlf 


OOlf, 


9 


9985744e- 


OOlf 


OOlf, 


9 


9985362e- 


OOlf 


OOlf, 


9 


9984981e- 


OOlf 


OOlf, 


9 


9984599e- 


OOlf 


OOlf, 


9 


9984218e- 


OOlf 


OOlf, 


9 


9983837e- 


OOlf 


OOlf, 


9 


9983455e- 


OOlf 


OOlf, 


9 


9983074e- 


OOlf 


OOlf, 


9 


9982692e~ 


OOlf 


OOlf, 


9 


9982311e- 


OOlf 


OOlf, 


9 


9981930e- 


OOlf 


OOlf, 


9 


9981548e- 


OOlf 


OOlf, 


9 


9981167e- 


OOlf 


OOlf, 


9 


9980785e~ 


OOlf 


OOlf, 


9 


9980404e- 


OOlf 


OOlf, 


9 


9980023e- 


OOlf 


OOlf, 


9 


9979641e- 


OOlf 


OOlf, 


9 


9979260e- 


OOlf 


OOlf, 


9 


9978878e- 


OOlf 


OOlf, 


9 


9978497e- 


OOlf 


OOlf, 


9 


9978116e- 


OOlf 


OOlf, 


9 


9977734e- 


OOlf 


OOlf, 


9 


9977353e- 


OOlf 


OOlf, 


9 


9976971e~ 


OOlf 


OOlf, 


9 


9976590e- 


OOlf 


OOlf, 


9 


9976209e- 


OOlf 


OOlf, 


9 


9975827e- 


OOlf 


OOlf, 


9 


9975446e- 


OOlf 


OOlf, 


9 


9975065e- 


OOlf 


OOlf, 


9. 


9974683e- 


OOlf 


OOlf, 


9 


9974302e- 


OOlf 


OOlf, 


9. 


9973920e- 


OOlf 



9.9999762e- 
9,9999380e- 
9.9998999e- 
9.9998617e- 
9.9998236e- 
9.9997854e~ 
9.9997473e- 
9.9997091e- 
9.9996710e- 
9.9996328e- 
9.9995947e- 
9.9995566e- 
9.9995184e- 
9.9994803e- 
9.9994421e~ 
9,9994040e- 
9.9993658e- 
9.9993277e- 
9.9992895e- 
9.9992514e- 
9.9992132e- 
9.9991751e- 
9.9991370e- 
9,9990988e- 
9.9990607e- 
9.9990225e- 
9.9989844e- 
.9989462e- 
.9989081e- 
,9988700e- 
,9988318e- 
,9987937e- 
9.9987555e- 
9.9987174e- 
9.9986792e- 
9.9986411e- 
9,9986030e- 
9.9985648e- 
9.9985267e- 
9.9984885e- 
9.9984504e- 
9.9984123e- 
9,9983741e- 
9.9983360e- 
9.9982978e- 
9.9982597e- 
9.9982216e- 
9.9981834e- 
9.9981453e- 
9.9981071e- 
9.9980690e- 
,9980309e- 
.9979927e- 
,9979546e- 
,9979164e- 
.9978783e- 
9.9978402e- 
9.9978020e- 
9.9977639e- 
9.9977257e- 
9.9976876e- 
9.9976495e- 
9.9976113e- 
9.9975732e- 
9.9975351e- 
9.9974969e~ 
9.9974588e- 
9 .9974206e- 
9.9973825e- 



OOlf, 


9 


9806115e- 


OOlf, 


OOlf, 


9 


9805735e- 


OOlf, 


OOlf, 


9 


9805354e- 


OOlf, 


OOlf, 


9 


9804973e- 


OOlf 


OOlf, 


9 


9999666e- 


OOlf, 


OOlf, 


9 


9999285e- 


OOlf, 


OOlf, 


9 


9998903e- 


OOlf, 


OOlf, 


9 


9998522e- 


OOlf, 


OOlf, 


9 


9998140e- 


OOlf, 


OOlf, 


9 


9997759e- 


OOlf, 


OOlf, 


9 


9997377e- 


OOlf, 


OOlf, 


9 


9996996e- 


OOlf, 


OOlf, 


9 


9996615e- 


OOlf, 


OOlf, 


9 


9996233e- 


OOlf, 


OOlf, 


9 


9995852e- 


OOlf, 


OOlf, 


9 


9995470e- 


OOlf, 


OOlf, 


9 


9995089e- 


OOlf, 


OOlf, 


9 


9994707e- 


OOlf, 


OOlf, 


9 


9994326e- 


OOlf, 


OOlf, 


9 


9993944e- 


OOlf, 


OOlf, 


9 


9993563e- 


OOlf, 


OOlf, 


9 


9993181e- 


OOlf, 


OOlf, 


9 


9992800e- 


OOlf, 


OOlf, 


9 


9992419e- 


OOlf, 


OOlf, 


9 


9992037e- 


OOlf, 


OOlf, 


9 


9991656e- 


OOlf, 


OOlf, 


9 


9991274e- 


OOlf, 


OOlf, 


9 


9990893e- 


OOlf, 


OOlf, 


9 


9990511e- 


OOlf, 


OOlf, 


9 


9990130e- 


OOlf, 


OOlf, 


9 


9989749e- 


OOlf, 


OOlf, 


9 


9989367e~ 


OOlf, 


OOlf, 


9 


9988986e- 


OOlf, 


OOlf, 


9 


9988604e- 


OOlf, 


OOlf, 


9 


9988223e- 


OOlf, 


OOlf, 


9 


9987841e- 


OOlf, 


OOlf, 


9 


9987460e- 


OOlf, 


OOlf, 


9 


9987079e- 


OOlf, 


OOlf, 


9 


9986697e- 


OOlf, 


OOlf, 


9 


9986316e- 


OOlf, 


OOlf, 


9 


9985934e- 


OOlf, 


OOlf, 


9 


9985553e- 


OOlf, 


OOlf, 


9 


9985171e- 


OOlf, 


OOlf, 


9 


9984790e- 


OOlf, 


OOlf, 


9 


9984409e- 


OOlf, 


OOlf, 


9 


9984027e- 


OOlf, 


OOlf, 


9 


9983646e- 


OOlf, 


OOlf, 


9 


9983264e- 


OOlf, 


OOlf, 


9 


9982883e- 


OOlf, 


OOlf, 


9 


9982502e- 


OOlf, 


OOlf, 


9 


9982120e- 


OOlf, 


OOlf, 


9 


9981739e- 


OOlf, 


OOlf, 


9 


9981357e- 


OOlf, 


OOlf, 


9 


9980976e- 


OOlf, 


OOlf, 


9 


9980595e- 


OOlf, 


OOlf, 


9 


9980213e- 


OOlf, 


OOlf, 


9 


9979832e- 


OOlf, 


OOlf, 


9 


9979450e- 


OOlf, 


OOlf, 


9 


9979069e- 


OOlf, 


OOlf, 


9 


9978688e- 


OOlf, 


OOlf, 


9 


9978306e» 


OOlf, 


OOlf, 


9 


9977925e- 


OOlf, 


OOlf, 


9 


9977543e- 


OOlf, 


OOlf, 


9 


9977162e- 


OOlf, 


OOlf, 


9 


9976781e- 


OOlf, 


OOlf, 


9 


9976399e- 


OOlf, 


OOlf, 


9 


9976018e- 


OOlf, 


OOlf, 


9 


9975637e- 


OOlf, 


OOlf, 


9 


9975255e- 


OOlf, 


OOlf, 


9 


9974874e- 


OOlf, 


OOlf, 


9. 


9974492e- 


OOlf, 


OOlf, 


9 


9974111e- 


OOlf, 


OOlf, 


9. 


9973730e- 


OOlf, 
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.9973634e- 
.9973253e- 
,9972872e- 
.9972490e- 
,9972109e- 
.9971728e- 
9.9971346e- 
9.9970965e- 
9.9970583e- 
9.9970202e- 
9.9969821e- 
9.9969439e- 
9.9969058e- 
9.9968677e- 
9.9968295e- 
9.9967914e- 
9.9967533e- 
9.9967151e- 
.9966770e- 
.9966389e- 
,9966007e- 
.9965626e- 
.9965245e- 
9.9964863e- 
9.9964482e- 
9.9964101e- 
9.9963719e- 
9.9963338e- 
9.9962957e- 
9.9962575e- 
9.9962194e- 
9,9961813e- 
9.9961431e- 
9.9961050e- 
9.9960669e- 
9.9960287e- 
9.9959906e- 
9.9959525e- 
9.9959143e- 
9.9958762e- 
9.9958381e- 
9.9957999e- 
9.9957618e~ 
9.9957237e- 
9.9956856e- 
9.9956474e- 
9.9956093e- 
9.9955712e- 
9.9955330e- 
9.9954949e- 
9.9954568e- 
9.9954186e- 
9.9953805e- 
9.9953424e- 
9.9953043e- 
9.9952661e- 
9.9952280e- 
9.9951899e- 
9.9951517e- 
9.9951136e- 
9.9950755e- 
9.9950374e- 
9.9949992e- 
9.9949611e- 
9.9949230e- 
9.9948848e- 
9.9948467e- 
9.9948086e- 
9.9947705e- 
9.9947323e- 
.9946942e- 
.9946561e- 
.9946180e- 
.9945798e- 
.9945417e- 
.9945036e- 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
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9,9929119e- 
9.9928738e- 
9.9928357e- 
9.9927976e- 
9.9927595e- 
9.9927213e- 
9.9926832e- 
9.9926451e- 
9.9926070e- 
9.9925689e- 
9.9925308e- 
9.9924926e- 
9.9924545e- 
9.9924164e- 
9.9923783e- 
9.9923402e- 
9.9923020e- 
9,9922639e- 
9.9922258e- 
9.9921877e- 
9.9921496e- 
9.9921115e- 
9.9920733e- 
9.9920352e- 
9.9919971e- 
9.9919590e- 
9.9919209e- 
9.9918828e- 
9.9918446e- 
9.9918065e- 
9.9917684e- 
9.9917303e- 
9.9916922e- 
9.9916541e- 
9.9916160e- 
9.9915778e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
•OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
OOlf, 
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9.9915683e 
9.9915302e 
9.9914921e 
9.9914540e 
9.9914158e 
9.9913777e 
9.9913396e 
9.9913015e 
9.9912634e 
9.9912253e 
9.9911872e- 
9.9911491e- 
9.9911109e- 
9.9910728e- 
9.9910347e- 
9.9909966e 
9.9909585e 
9.9909204e 
9.9908823e 
9.9908442e 
9.9908060e 
9.9907679e- 
9.9907298e- 
9.9906917e- 
9.9906536e- 
9.9906155e- 
9.9905774e- 
9.9905393e- 
9.9905011e- 
9.9904630e- 
9.9904249e- 
9.9903868e- 
9.9903487e- 
9.9903106e- 
9.9902725e- 
9.9902344e- 
9.9901963e- 
9.9901582e- 
9.9901200e- 
9.9900819e- 
9.9900438e- 
9.9900057e- 
9.9899676e- 
9.9899295e- 
9 .9898914e- 
9.9898533e- 
9.9898152e- 
.9897771e- 
.9897390e- 
.9897009e- 
.9896627e 
.9896246e 
.9895865e 
9.9895484e 
9.9895103e 
9.9894722e 
9.9894341e 
9.9893960e 
9.9893579e 
9 .9893198e 
9.9892817e- 
9.9892436e 
9.9892055e 
9 . 9891674e 
.9891293e 
.9890912e 
.9890530e 
.9890149e- 
.9889768e 
9.9889387e- 
9.9889006e 
9.9888625e 
9.9888244e 
9.9887863e 
9.9887482e 
9.9887101e 



9. 
9. 
9, 
9. 
9. 
9, 



-OOlf , 9.9915588e-001f , 
OOlf , 9.9915207e-001f , 
OOlf, 9.9914825e-001f , 
OOlf, 9.9914444e-001f , 
■OOlf, 9.9914063e-001f , 
-OOlf, 9.9913682e-001f , 
OOlf, 9.9913301e-001f , 
OOlf, 9.9912920e-001f , 
OOlf, 9.9912539e-001f , 
-OOlf, 9.9912158e-001f , 
■OOlf, 9.9911776e-001f , 
■OOlf, 9.9911395e-001f , 
■OOlf, 9.9911014e-001f , 
■OOlf, 9.9910633e-001f , 
■OOlf, 9 . 99102 52e-001f , 
•OOlf, 9.9909871e-001f , 
-OOlf, 9.9909490e-001f , 
■OOlf, 9.9909108e-001f , 
-OOlf, 9.9908727e-001f , 
-OOlf, 9.9908346e-001f , 
-OOlf, 9.9907965e-001f , 
-OOlf, 9.9907584e-001f , 
-OOlf, 9 . 99072 03e-001f , 
-OOlf, 9.9906822e-001f , 
-OOlf, 9.9906441e-001f , 
-OOlf, 9.9906060e-001f , 
-OOlf, 9.9905678e-001f , 
-OOlf, 9.9905297e-001f , 
-OOlf, 9 .9904916e-001f , 
-OOlf, 9.9904535e-001f , 
-OOlf, 9.9904154e-001f , 
-OOlf, 9.9903773e-001f , 
-OOlf, 9.9903392e-001f , 
-OOlf, 9.9903011e-001f , 
-OOlf, 9.9902630e-001f , 
-OOlf, 9 .9902249e-001f , 
-OOlf, 9.9901867e-001f , 
-OOlf, 9.9901486e-001f , 
-OOlf, 9.9901105e-001f , 
-OOlf, 9.9900724e-001f , 
-OOlf, 9.9900343e-001f , 
-OOlf, 9.9899962e-001f , 
-OOlf, 9.9899581e-001f , 
-OOlf, 9.9899200e-001f , 
-OOlf, 9.9898819e-001f , 
OOlf, 9.9898438e-001f , 
OOlf, 9.9898057e-001f , 
OOlf, 9.9897675e-001f , 
OOlf, 9 .9897294e-0 01f , 
OOlf, 9.9896913e-001f , 
OOlf, 9.9896532e-001f , 
■OOlf, 9.9896151e-001f , 
■OOlf, 9.9895770e-001f , 
■OOlf, 9.9895389e-001f , 
-OOlf, 9.9895008e-001f , 
-OOlf, 9.9894627e-001f , 
•OOlf, 9.9894246e-001f , 
-OOlf, 9.9893865e-001f , 
-OOlf, 9.9893484e-001f , 
OOlf, 9.9893103e-001f , 
OOlf, 9. 9892722e-001f , 
OOlf, 9 . 98923 40e-001f , 
OOlf, 9. 9891959e-001f , 
OOlf, 9. 9 891578e-0 01f , 
OOlf, 9. 9891197e-001f , 
OOlf, 9.9890816e-001f , 
OOlf, 9.9890435e-001f , 
OOlf, 9.9890054e-001f , 
OOlf, 9.9889673e-001f , 
OOlf, 9.9889292e~001f , 
OOlf, 9.9888911e-001f , 
OOlf, 9.9888530e-001f , 
OOlf, 9.9888149e-001f , 
OOlf, 9.9887768e-001f , 
OOlf, 9.9887387e-001f , 
■OOlf, 9.9887006e-001f , 



9.9915492e- 
9.9915111e- 
9914730e- 
9914349e- 
9913968e- 
9913587e- 
9913206e- 
9912825e- 
9.9912443e- 
9.9912062e- 
9.9911681e- 
9 .9911300e- 
9.9910919e- 
9.9910538e- 
9 .9910157e- 
9.9909775e- 
9.9909394e- 
9.9909013e- 
9.9908632e- 
9.9908251e- 
9 .9907870e- 
9.9907489e- 
9 .9907108e- 
9.9906726e- 
9.9906345e- 
9.9905964e- 
9.9905583e 
9 .9905202e 
9.9904821e 
9.9904440e- 
9.9904059e- 
9.9903678e- 
9.9903297e- 
9.9902915e- 
9.9902534e- 
9.9902153e- 
9.9901772e- 
9.9901391e- 
9.9901010e- 
9.9900629e- 
9.9900248e- 
9.9899867e- 
9.9899486e- 
9.9899105e- 
9.9898723e- 
9.9898342e- 
9.9897961e- 
9.9897580e- 
9.9897199e- 
9.9896818e- 
9. 9896437e- 
9.9896056e- 
9.9895675e- 
9.9895294e- 
9.9894913e- 
9.9894532e- 
9.9894151e- 
9.9893769e- 
9.9893388e- 
9.9893007e- 
9.9892626e- 
9.9892245e- 
9.9891864e 
9.9891483e 
9.9891102e 
9.9890721e 
9.9890340e 
9.9889959e 
9.9889578e 
9.9889197e 
9.9888816e 
9.9888435e 
9.9888054e 
9 ,9887673e 
9.9887292e 
9 .9886911e 



OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
•OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 



9.9915397e- 
9.9915016e- 
9.9914635e- 
9.9914254e- 
9.9913873e- 
9.9913491e- 
9.9913110e- 
9.9912729e- 
9.9912348e- 
9.9911967e~ 
9.9911586e- 
9.9911205e- 
9.9910824e- 
9.9910442e- 
9.9910061e- 
9.9909680e- 
9.9909299e- 
9.9908918e- 
9.9908537e- 
9.9908156e- 
9.9907775e- 
9.9907393e- 
9.9907012e 
9.9906631e 
9.9906250e 
9.9905869e 
9.9905488e 
9.9905107e 
9.9904726e 
9.9904345e 
9.9903963e- 
9.9903582e- 
9.9903201e- 
9.9902820e- 
9.9902439e- 
9.9902058e- 
9.9901677e- 
9.9901296e- 
9.9900915e- 
9.9900534e- 
9.9900152e- 
9.9899771e- 
9.9899390e- 
9.9899009e- 
9.9898628e- 
9.9898247e- 
9.9897866e- 
9.9897485e- 
9.9897104e- 
9.9896723e- 
9.9896342e- 
9.9895961e- 
9.9895580e- 
9.9895198e- 
9.9894817e- 
9.9894436e- 
9.9894055e- 
9.9893674e- 
9 . 9893293e- 
9.9892912e- 
9.9892531e- 
9.9892150e 
9.9891769e 
9.9891388e 
9.9891007e 
9.9890626e 
9.9890245e 
9.9889864e 
9 .9889483e 
9.9889102e 
9.9888720e 
9.9888339e 
9.9887958e 
9.9887577e 
9.9887196e 
9.9886815e- 



OOlf , 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
■OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
OOlf, 
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,9886720e- 
.9886339e- 
.9885958e- 
.9885577e- 
.9885196e- 
.9884815e- 
.9884434e- 
9.9884053e- 
9.9883672e- 
9.9883291e- 
9.9882910e- 
9.9882529e- 
9 .9882148e- 
9.9881767e- 
9.9881386e- 
9.9881005e- 
9.9880624e- 
9.9880243e- 
9.9879862e- 
9.9879481e- 
9.9879100e- 
9.9878719e- 
9.9878338e- 
9.9877957e- 
9.9877576e- 
9.9877195e- 
9.9876814e- 
.9876433e- 
.9876052e- 
.9875671e- 
.9875290e- 
.9874909e- 
.9874528e- 
.9874147e- 
9.9873766e- 
9.9873385e- 
9.9873004e- 
9.9872623e- 
9.9872242e- 
9.9871861e- 
9.9871480e- 
9.9871099e- 
9.9870718e- 
9.9870337e- 
9.9869956e- 
9.9869575e- 
9.9869194e- 
9.9868813e- 
9.9868432e- 
9.9868051e- 
9.9867670e 
9.9867289e 
9.9866908e 
9.9866527e 
9.9866146e 
9.9865765e 
9.9865384e 
9.9865003e 
.9864622e 
.9864241e 
.9863860e 
.9863479e 
.9863098e 
.9862718e 
.9862337e 
9.9861956e 
9.9861575e 
9.9861194e 
9.9860813e 
9.9860432e 
9.9860051e 
9.9859670e 
9.9859289e 
9.9858908e 
9.9858527e 
9.9858146e 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf, 
OOlf 
OOlf, 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
•OOlf 
•OOlf 
■OOlf 
•OOlf 
•OOlf 
-OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
•OOlf, 
■OOlf, 
-OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
OOlf 
OOlf 
OOlf 
-OOlf 
OOlf 
OOlf 
OOlf 
-OOlf 
OOlf 
OOlf 



,9886625e 
,9886244e 
,9885863e- 
,9885482e- 
,9885101e- 
9.9884720e- 
9.9884339e- 
9.9883958e- 
9.9883577e- 
9.9883195e- 
9.9882814e- 
9.9882433e- 
9.9882052e- 
9.9881671e- 
9.9881290e- 
9.9880909e- 
9.9880528e- 
9.9880147e- 
9.9879766e- 
9.9879385e- 
9.9879004e- 
9.9878623e- 
9.9878242e- 
9.9877861e- 
9.9877480e- 
9.9877099e- 
9.9876718e- 
9.9876337e- 
9.9875956e- 
9.9875575e- 
9.9875194e- 
9.9874813e- 
9.9874432e- 
9.9874051e- 
9.9873670e- 
9.9873289e- 
9.9872908e- 
9.9872527e- 
9.9872146e- 
9.9871765e- 
9.9871384e- 
9.9871003e- 
9.9870622e- 
9.9870242e- 
9.9869861e- 
9.9869480e- 
9.9869099e- 
9.9868718e- 
9.9868337e- 
9.9867956e 
9.9867575e 
9.9867194e 
9. 9866813e 
9.9866432e 
9.9866051e 
9.9865670e 
9.9865289e 
9.9864908e 
9.9864527e 
9.9864146e 
9.9863765e 
9.9863384e 
9.9863003e 
9.9862622e 
9.9862241e 
9.9861860e 
9.9861479e 
9.9861099e 
9.9860718e 
9.9860337e 
9.9859956e 
9.9859575e 
9.9859194e 
9.9858813e 
9.9858432e 
9.9858051e 



OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf, 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
-OOlf 
■OOlf 
-OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
•OOlf 
-OOlf 
■OOlf 
■OOlf 
-OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
•OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
OOlf 
OOlf 
-OOlf 
OOlf 
OOlf 
-OOlf 
-OOlf 
-OOlf 



9.9886529e- 
9.9886148e- 
9.9885767e- 
9.9885386e- 
9.9885005e~ 
9.9884624e- 
9884243e- 
9883862e- 
9883481e- 
9883100e- 
9882719e- 
9882338e- 
9.9881957e- 
9.9881576e- 
9.9881195e- 
9.9880814e- 
9.9880433e- 
9.9880052e- 
9.9879671e- 
9.9879290e- 
9.9878909e- 
9878528e- 
9878147e- 
9877766e- 
9877385e- 
9877004e- 
9876623e- 
9.9876242e- 
9.9875861e- 
9.9875480e- 
9.9875099e- 
9.9874718e- 
9.9874337e- 
9.9873956e- 
9.9873575e- 
9.9873194e- 
9.9872813e- 
9.9872432e- 
9.9872051e- 
9.9871670e- 
9.9871289e- 
9.9870908e- 
9.9870527e- 
9.9870146e- 
9.9869765e- 
9.9869384e 
9.9869003e- 
9.9868622e- 
9.9868241e- 
9.9867860e- 
9.9867479e- 
9.9867099e- 
9.9866718e- 
9.9866337e- 
9.9865956e- 
9.9865575e- 
9865194e- 
9864813e 
9864432e 
9864051e 
9863670e 
9863289e 
9.9862908e 
9.9862527e 
9.9862146e 
9.9861765e 
9.9861384e 
9.9861003e 
9.9860622e 
9.9860241e 
9.9859860e 
9.9859480e 
9.9859099e 
9.9858718e 
9.9858337e 
9.9857956e 



OOlf 
OOlf 
OOlf 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
•OOlf 
•OOlf 
•OOlf 
■OOlf 
•OOlf 
■OOlf 
■OOlf 
■OOlf 
■OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 
-OOlf 



9.9886434e 
9.9886053e 
9.9885672e 
9.9885291e 
9.9884910e- 
9.9884529e 
9.9884148e 
9.9883767e- 
9.9883386e 
9.9883005e- 
9.9882624e- 
9882243e- 
9881862e- 
9881481e- 
9881100e- 
9880719e- 
9.9880338e- 
9.9879957e- 
9.9879576e- 
9.9879195e- 
9.9878814e- 
9.9878433e- 
9.9878052e- 
9.9877671e- 
9.9877290e- 
9.9876909e- 
9.9876528e- 
9.9876147e- 
9.9875766e- 
9.9875385e- 
9.9875004e- 
9.9874623e- 
9.9874242e- 
9.9873861e- 
9.9873480e- 
9.9873099e- 
9.9872718e- 
9.9872337e- 
9.9871956e- 
9.9871575e- 
9.9871194e- 
9.9870813e- 
9.9870432e- 
9870051e- 
9869670e- 
9869289e- 
9868908e- 
9868527e- 
9.9868146e- 
9.9867765e- 
9.9867384e- 
9.9867003e- 
9.9866622e- 
9.9866241e- 
9.9865860e- 
9.9865479e- 
9.9865098e- 
9.9864718e- 
9.9864337e- 
9.9863956e- 
9.9863575e- 
9.9863194e- 
9.9862813e- 
9.9862432e- 
9.9862051e- 
9.9861670e 
9.9861289e- 
9.9860908e- 
9.9860527e- 
9.9860146e 
9.9859765e 
9.9859384e 
9.9859003e 
9.9858622e 
9.9858242e 
9.9857861e 



OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
OOlf, 
•OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
■OOlf, 
•OOlf, 
-OOlf, 
•OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
-OOlf, 
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9.9857765e-001f , 
9.9857384e-001f , 
9.9857004e-001f , 
9.9856623e-001f , 
9.9856242e-001f , 
9.9855861e-001f , 
9.9855480e-001f , 
9.9855099e-001f , 
9.9854718e-001f , 
9.9854337e-001f , 
9.9853956e-001f , 
9.9853575e-001f , 
9.9853194e-001f , 
9.9852813e-001f , 
9.9852433e-001f , 
9.9852052e-001f , 
9.9851671e-001f , 
9.9851290e-001f , 
9.9850909e-001f , 
9.9850528e-001f , 
9.9850147e-001f , 
9.9849766e-001f , 
9.9849385e-001f , 
9.9849004e~001f , 
9.9848624e-001f ( 
9.9848243e-001f , 
9.9847862e-001f , 
9.9847481e-001f , 
9.9847100e-001f , 
9.9846719e-001f , 
9.9846338e-001f , 
9.9845957e-001f ( 
9.9845576e-001f t 
9.9845196e-001f ( 
9.9844815e-001f , 
9.9844434e-001f . 
9.9844053e-001f , 
9.9843672e-001f . 
9.9843291e-001f . 
9.9842910e-001f 
9.9842529e-001f 
9.9842149e-001f 
9.9841768e-001f 
9.9841387e-001f 
9.9841006e-001f 
9.9840625e-001f 
9.9840244e-001f 
9.9839863e-001f 
9.9839483e»001f 
9.9839102e-001f 
9.9838721e-001f 
9.9838340e-001f 
9.9837959e-001f 
9.9837578e-001f 
9.9837197e-001f 
9.9836817e-001f 
9.9836436e-001f 
9.9836055e-001f 
9.9835674e-001f 
9.9835293e-001f 
9.9834912e-001f 
9.9834532e-001f 
9.9834151e-001f 
9.9833770e-001f 
9.9833389e-001f 
9.9833008e-001f 
9.9832627e-001f 
9.9832247e-001f 
9.9831866e-001f 
9.9831485e-001f 
9.9831104e-001f 
9.9830723e~001f 
9.9830342e-001f 
9.9829962e-001f 
9.9829581e~001f 
9.9829200e-001f 



9 . 


9857670e- 


OOlf , 


9 . 


9857289e- 


OOlf , 


9 . 


9856908e- 


OOlf , 


9 . 


9856527e- 


OOlf, 


9 . 


9856146e- 


OOlf, 


9 . 


9855766e- 


OOlf, 


9. 


9855385e- 


OOlf, 


9. 


9855004e- 


OOlf, 


9. 


9854623e- 


OOlf, 


9. 


9854242e- 


OOlf, 


9. 


9853861e- 


OOlf, 


9. 


9853480e- 


OOlf, 


9. 


9853099e- 


OOlf, 


9. 


9852718e- 


OOlf, 


9. 


9852337e- 


OOlf, 


9. 


9851956e- 


OOlf, 


9. 


9851575e- 


-OOlf, 


9. 


9851195e- 


-OOlf, 


9. 


9850814e- 


-OOlf, 


9 


9850433e- 


-OOlf, 


9 


9850052e- 


-OOlf 


9 


9849671e- 


-OOlf 


9 


9849290e- 


-OOlf 


9 


9848909e- 


-OOlf 


9 


9848528e- 


-OOlf 


9 


9848147e- 


-OOlf 


9 


9847767e- 


-OOlf 


9 


9847386e- 


-OOlf 


9 


9847005e- 


-OOlf 


9 


9846624e- 


-OOlf 


9 


9846243e- 


-OOlf 


9 


9845862e- 


-OOlf 


9 


9845481e- 


-OOlf 


9 


9845100e- 


-OOlf 


9 


9844719e- 


-OOlf 


9 


9844339e- 


-OOlf 


9 


9843958e- 


-OOlf 


9 


9843577e- 


-OOlf 


9 


9843196e- 


-OOlf 


9 


.9842815e- 


-OOlf 


9 


.9842434e- 


-OOlf 


9 


.9842053e- 


-OOlf 


9 


.9841672e- 


-OOlf 


9 


.9841292e- 


-OOlf 


9 


.9840911e- 


-OOlf 


9 


.9840530e- 


-OOlf 


9 


.9840149e- 


-OOlf 


9 


.9839768e- 


-OOlf 


9 


.9839387e- 


-OOlf 


9 


.9839006e- 


-OOlf 


9 


.9838626e- 


-OOlf 


9 


.9838245e- 


-OOlf 


9 


.9837864e- 


-OOlf 


9 


.9837483e- 


-OOlf 


9 


.9837102e- 


-OOlf 


9 


.9836721e- 


-OOlf 


9 


. 9836341e- 


-OOlf 


9 


.9835960e- 


-OOlf 


9 


.9835579e- 


-OOlf 


9 


.9835198e- 


-OOlf 


9 


.9834817e- 


-OOlf 


9 


.9834436e- 


-OOlf 


9 


.9834055e- 


-OOlf 


9 


.9833675e- 


-OOlf 


9 


.9833294e- 


-OOlf 


9 


.9832913e- 


-OOlf 


9 


.9832532e- 


-OOlf 


9 


.9832151e- 


-OOlf 


9 


.9831770e- 


-OOlf 


9 


.9831390e- 


-OOlf 


9 


.9831009e- 


-OOlf 


9 


.9830628e- 


-OOlf 


9 


.9830247e- 


-OOlf 


9 


.9829866e- 


-OOlf 


9 


.9829486e- 


-OOlf 


9 


.9829105e- 


-OOlf 



9. 


9857575e- 


OOlf , 


9. 


9857194e- 


OOlf, 


9 . 


9856813e- 


OOlf, 


9 . 


9856432e- 


OOlf, 


9 . 


9856051e- 


OOlf, 


9 . 


9855670e- 


OOlf, 


9. 


9855289e- 


OOlf, 


9. 


9854908e- 


OOlf, 


9 . 


9854528e- 


OOlf, 


9. 


9854147e- 


OOlf, 


9 . 


9853766e- 


OOlf, 


9. 


9853385e- 


OOlf, 


9. 


9853004e- 


OOlf, 


9. 


9852623e- 


OOlf, 


9. 


9852242e- 


OOlf, 


9. 


9851861e- 


OOlf, 


9. 


9851480e- 


OOlf, 


9 . 


9851099e- 


OOlf, 


9. 


9850718e- 


OOlf 


9. 


9850338e- 


OOlf 


9 . 


9849957e- 


OOlf 


9 


9849576e- 


OOlf 


9 


9849195e- 


OOlf 


9 


9848814e- 


OOlf 


9 


9848433e- 


OOlf 


9 


9848052e- 


OOlf 


9 


9847671e- 


OOlf 


9 


9847290e- 


OOlf 


9 


9846910e- 


OOlf 


9 


9846529e- 


-OOlf 


9 


9846148e- 


-OOlf 


9 


9845767e- 


-OOlf 


9 


9845386e- 


-OOlf 


9 


9845005e- 


-OOlf 


9 


.9844624e- 


•OOlf 


9 


. 9844243e- 


-OOlf 


9 


.9843862e- 


-OOlf 


9 


.9843482e- 


-OOlf 


9 


,9843101e- 


-OOlf 


9 


.9842720e- 


-OOlf 


9 


.9842339e- 


-OOlf 


9 


,9841958e- 


-OOlf 


9 


.9841577e- 


-OOlf 


9 


.9841196e- 


-OOlf 


9 


.9840816e- 


-OOlf 


9 


,9840435e- 


-OOlf 


9 


.9840054e- 


-OOlf 


9 


.9839673e- 


-OOlf 


9 


.9839292e- 


-OOlf 


9 


.9838911e- 


-OOlf 


9 


,9838530e- 


-OOlf 


9 


.9838150e- 


-OOlf 


9 


.9837769e- 


-OOlf 


9 


.9837388e- 


-OOlf 


9 


. 9837007e- 


-OOlf 


9 


,9836626e- 


-OOlf 


9 


.9836245e- 


-OOlf 


9 


.9835864e- 


-OOlf 


9 


,9835484e- 


-OOlf 


9 


.9835103e- 


-OOlf 


9 


.9834722e- 


-OOlf 


9 


.9834341e- 


-OOlf 


9 


.9833960e- 


-OOlf 


9 


.9833579e- 


-OOlf 


9 


.9833199e- 


-OOlf 


9 


.9832818e- 


-OOlf 


9 


.9832437e- 


-OOlf 


9 


.9832056e- 


-OOlf 


9 


.9831675e- 


-OOlf 


9 


.9831294e- 


-OOlf 


9 


.9830914e- 


-OOlf 


9 


.9830533e- 


-OOlf 


9 


.9830152e- 


-OOlf 


9 


.9829771e- 


-OOlf 


9 


.9829390e- 


-OOlf 


9 


.9829009e- 


-OOlf 



9.9857480e-001f , 
9.9857099e-001f , 
9.9856718e-001f , 
9.9856337e-001f , 
9.9855956e-001f , 
9.9855575e-001f , 
9.9855194e-001f , 
9.9854813e-001f , 
9.9854432e-001f , 
9.9854051e-001f , 
9.9853670e-001f , 
9.9853290e-001f , 
9.9852909e-001f , 
9.9852528e-001f , 
9.9852147e-001f , 
9.9851766e-001f , 
9.9851385e-001f , 
9.9851004e~001f , 
9.9850623e-001f , 
9.9850242e-001f , 
9.9849861e-001f , 
9.9849481e-001f , 
9.9849100e-001f , 
9.9848719e-001f , 
9.9848338e-001f , 
9.9847957e-001f , 
9.9847576e-001f , 
9.9847195e-001f , 
9.9846814e-001f , 
9.9846433e-001f , 
9.9846053e-001f , 
9.9845672e-001f , 
9.9845291e-001f , 
9.9844910e-001f , 
9.9844529e-001f , 
9.9844148e-001f , 
9.9843767e-001f , 
9.9843386e-001f , 
9.9843006e-001f , 
9.9842625e-001f , 
9.9842244e-001f , 
9.9841863e-001f , 
9.9841482e-001f , 
9.9841101e-001f , 
9.9840720e-001f , 
9.9840339e-001f , 
9.9839959e-001f , 
9.9839578e-001f , 
9.9839197e-001f , 
9.9838816e-001f , 
9.9838435e-001f , 
9.9838054e-001f , 
9.9837673e-001f , 
9.9837293e-001f , 
9.9836912e-001f , 
9.9836531e-001f , 
9.9836150e-001f , 
9.9835769e-001f , 
9.9835388e-001f , 
9.9835008e-001f , 
9.9834627e-001f , 
9.9834246e-001f , 
9.9833865e-001f , 
9.9833484e-001f , 
9.9833103e-001f , 
9.9832723e-001f , 
9.9832342e-001f , 
9.9831961e-001f , 
9.9831580e-001f , 
9.9831199e-001f , 
9.9830818e-001f , 
9.9830438e-001f , 
9.9830057e-001f , 
9.9829676e-001f , 
9.9829295e-001f , 
9.9828914e-001f , 



FASTEXP2 . INC 27 



9 


9828819e- 


OOlf , 


9 


9828438e- 


OOlf , 


9 


9828057e- 


OOlf, 


9 


9827677e- 


OOlf/ 


9 


9827296e- 


OOlf , 


9 


9826915e- 


OOlf, 


9 


9826534e- 


OOlf; 


9 


9826153e- 


OOlf, 


9 


9825773e- 


OOlf, 


9 


9825392e- 


OOlf, 


9 


9825011e- 


OOlf, 


9 


9824630e- 


OOlf, 


9 


9824249e- 


OOlf, 


9 


9823869e- 


OOlf, 


9 


9823488e- 


OOlf, 


9 


9823107e- 


OOlf, 


9 


9822726e- 


OOlf, 


9 


9822345e- 


OOlf, 


9 


9821965e- 


OOlf, 


9 


9821584e- 


OOlf, 


9 


9821203e- 


OOlf, 


9 


9820822e- 


OOlf, 


9 


9820441e- 


OOlf, 


9 


9820061e- 


OOlf, 


9 


9819680e- 


OOlf, 


9 


9819299e- 


OOlf, 


9 


9818918e- 


OOlf, 


9 


9818538e- 


OOlf, 


9 


9818157e- 


OOlf, 


9 


9817776e- 


OOlf, 


9 


9817395e- 


OOlf, 


9 


9817014e- 


OOlf, 


9 


9816634e- 


OOlf, 


9 


9816253e- 


OOlf, 


9 


9815872e- 


OOlf, 


9 


9815491e- 


OOlf, 


9 


9815111e- 


OOlf, 


9 


9814730e- 


OOlf, 


9 


.9814349e- 


OOlf, 


9 


,9813968e- 


OOlf, 


9 


,9813588e- 


OOlf, 


9 


.9813207e- 


OOlf, 


9 


.9812826e- 


OOlf, 


9 


.9812445e- 


OOlf, 


9 


,9812065e- 


OOlf, 


9 


.9811684e- 


OOlf, 


9 


.9811303e- 


OOlf, 


9 


.9810922e- 


OOlf, 


9 


.9810542e- 


•OOlf, 


9 


,9810161e- 


-OOlf, 


9 


.9809780e- 


OOlf, 


9 


.9809399e- 


-OOlf, 


9 


.9809019e- 


•OOlf, 


9 


.9808638e- 


-OOlf, 


9 


,9808257e- 


OOlf, 


9 


.9807876e- 


OOlf, 


9 


.9807496e- 


OOlf, 


9 


.9807115e- 


OOlf, 


9 


.9806734e- 


OOlf, 


9 


.9806353e- 


OOlf, 


9 


.9805973e- 


OOlf, 


9 


.9805592e- 


-OOlf, 


9 


.9805211e- 


OOlf, 



9 


9828724e- 


OOlf , 


9 


9828343e- 


OOlf, 


9 


9827962e- 


OOlf, 


9 


9827581e- 


OOlf, 


9 


9827201e- 


OOlf, 


9 


. 9826820e- 


OOlf, 


9 


. 9826439e- 


OOlf, 


9 


9826058e- 


OOlf, 


9 


9825677e- 


OOlf, 


9 


9825297e- 


OOlf, 


9 


.9824916e- 


OOlf, 


9 


9824535e- 


OOlf, 


9 


.9824154e- 


OOlf, 


9 


.9823773e- 


OOlf, 


9 


. 9823393e- 


OOlf, 


9 


. 9823012e- 


OOlf, 


9 


.9822631e- 


OOlf, 


9 


. 9822250e- 


OOlf, 


9 


. 9821869e- 


OOlf, 


9 


. 9821489e- 


OOlf, 


9 


. 9821108e- 


OOlf, 


9 


ADO An^ H ~ 

. 9820727e- 


OOlf, 


9 


. 9820346e- 


OOlf, 


9 


.9819965e- 


OOlf, 


9 


,9819585e- 


OOlf, 


9 


.9819204e- 


OOlf, 


9 


.9818823e- 


OOlf, 


9 


. 9818442e- 


OOlf, 


9 


. 9818062e- 


OOlf, 


9 


. 9817681e- 


OOlf, 


9 


.9817300e- 


OOlf, 


9 


,9816919e- 


OOlf, 


9 


.9816539e- 


OOlf, 


9 


.9816158e- 


-OOlf, 


9 


.9815777e- 


-OOlf, 


9 


. 9815396e- 


-OOlf, 


9 


.9815015e- 


-OOlf, 


9 


.9814635e- 


-OOlf, 


9 


.9814254e- 


-OOlf, 


9 


.9813873e- 


-OOlf, 


9 


.9813492e- 


-OOlf, 


9 


.9813112e- 


■OOlf, 


9 


,9812731e- 


-OOlf, 


9 


.9812350e- 


-OOlf, 


9 


.9811969e- 


•OOlf, 


9 


,9811589e- 


-OOlf, 


9 


.9811208e- 


-OOlf, 


9 


.9810827e- 


-OOlf, 


9 


,9810446e- 


-OOlf, 


9 


.9810066e- 


-OOlf, 


9 


.9809685e- 


-OOlf, 


9 


.9809304e- 


-OOlf, 


9 


,9808923e- 


-OOlf, 


9 


.9808543e- 


-OOlf, 


9 


.9808162e- 


-OOlf, 


9 


,9807781e- 


-OOlf, 


9 


.9807400e- 


-OOlf, 


9 


.9807020e- 


-OOlf, 


9 


.9806639e- 


-OOlf, 


9 


.9806258e- 


-OOlf, 


9 


.9805878e- 


-OOlf, 


9 


.9805497e- 


-OOlf, 


9 


.9805116e- 


•OOlf, 



9 


. 9828629e- 


OOlf , 


9 


. 9828248e- 


OOlf, 


9 


. 9827867e- 


OOlf, 


9 


. 9827486e- 


OOlf, 


9 


. 9827105e- 


OOlf, 


9 


. 9826725e- 


OOlf, 


9 


. 9826344e- 


OOlf, 


9 


. 9825963e- 


OOlf, 


9 


. 9825582e- 


OOlf, 


9 


. 9825201e- 


OOlf, 


9 


. 9824821e- 


OOlf, 


9 


. 9824440e- 


OOlf, 


9 


. 9824059e- 


OOlf, 


9 


. 9823678e- 


OOlf, 


9 


, 9823297e- 


OOlf, 


9 


.9822917e- 


OOlf, 


9 


. 9822536e- 


OOlf, 


9 


. 9822155e- 


OOlf, 


9 


. 9821774e- 


OOlf, 


9 


. 9821393e- 


OOlf, 


9 


. 9821013e- 


OOlf, 


9 


. 9820632e- 


OOlf, 


9 


. 9820251e- 


OOlf, 


9 


.9819870e- 


OOlf, 


9 


.9819490e- 


OOlf, 


9 


.9819109e- 


OOlf, 


9 


,9818728e- 


OOlf, 


9 


. 9818347e- 


OOlf, 


9 


. 9817966e- 


OOlf, 


9 


,9817586e- 


OOlf, 


9 


.9817205e- 


OOlf, 


9 


. 9816824e- 


OOlf, 


9 


.9816443e- 


OOlf, 


9 


.9816063e- 


OOlf, 


9 


.9815682e- 


OOlf, 


9 


. 9815301e- 


OOlf, 


9 


.9814920e- 


OOlf, 


9 


.9814539e- 


OOlf, 


9 


.9814159e- 


OOlf, 


9 


,9813778e- 


OOlf, 


9 


.9813397e- 


OOlf, 


9 


.9813016e- 


OOlf, 


9 


.9812636e- 


OOlf, 


9 


.9812255e- 


OOlf, 


9 


.9811874e- 


OOlf, 


9 


. 9811493e- 


OOlf, 


9 


.9811113e- 


OOlf, 


9 


.9810732e- 


OOlf, 


9 


,9810351e- 


OOlf, 


9 


.9809970e- 


OOlf, 


9 


.9809590e- 


OOlf, 


9 


.9809209e- 


OOlf, 


9 


.9808828e- 


OOlf, 


9 


. 9808447e- 


OOlf, 


9 


,9808067e- 


OOlf, 


9 


.9807686e- 


OOlf, 


9 


.9807305e- 


OOlf, 


9 


.9806925e- 


OOlf, 


9 


.9806544e- 


OOlf, 


9 


.9806163e- 


OOlf, 


9 


.9805782e- 


OOlf, 


9 


.9805402e- 


OOlf, 


9 


.9805021e- 


OOlf, 



9 


. 9828533e- 


OOlf , 


9 


. 9828153e- 


OOlf, 


9 


. 9827772e- 


OOlf, 


9 


. 9827391e- 


OOlf, 


9 


. 9827010e- 


OOlf, 


9 


. 9826629e- 


OOlf, 


9 


. 9826249e- 


OOlf , 


9 


. 9825868e- 


OOlf, 


9 


.9825487e- 


OOlf, 


9 


. 9825106e- 


OOlf , 


9 


.9824725e- 


OOlf, 


9 


. 9824345e- 


OOlf, 


9 


.9823964e- 


OOlf, 


9 


. 9823583e- 


OOlf, 


9 


. 9823202e- 


OOlf , 


9 


.9822821e- 


OOlf, 


9 


. 9822441e- 


OOlf, 


9 


. 9822060e- 


OOlf, 


9 


. 9821679e- 


OOlf, 


9 


. 9821298e- 


OOlf, 


9 


. 9820917e- 


OOlf, 


9 


. 9820537e- 


OOlf, 


9 


. 9820156e- 


OOlf, 


9 


. 9819775e- 


OOlf, 


9 


. 9819394e- 


OOlf, 


9 


. 9819014e- 


OOlf, 


9 


. 9818633e- 


OOlf, 


9 


. 9818252e- 


OOlf, 


9 


. 9817871e- 


OOlf, 


9 


. 9817490e- 


OOlf, 


9 


.9817110e- 


OOlf, 


9 


. 9816729e- 


OOlf, 


9 


.9816348e- 


OOlf, 


9 


.9815967e- 


OOlf, 


9 


,9815587e- 


OOlf, 


9 


. 9815206e- 


OOlf, 


9 


.9814825e- 


OOlf, 


9 


.9814444e- 


OOlf, 


9 


.9814064e- 


OOlf, 


9 


,9813683e- 


OOlf, 


9 


,9813302e- 


OOlf, 


9 


.9812921e- 


OOlf, 


9 


.9812541e- 


OOlf, 


9 


.9812160e- 


OOlf, 


9 


.9811779e- 


OOlf, 


9 


,9811398e- 


OOlf, 


9 


.9811017e- 


OOlf, 


9 


.9810637e- 


OOlf, 


9 


,9810256e- 


OOlf, 


9 


.9809875e- 


OOlf, 


9 


.9809495e- 


OOlf, 


9 


.9809114e- 


OOlf , 


9 


.9808733e- 


OOlf, 


9 


.9808352e- 


OOlf, 


9 


.9807972e- 


OOlf, 


9 


.9807591e- 


OOlf, 


9 


.9807210e- 


OOlf, 


9 


.9806829e- 


OOlf, 


9 


.9806449e- 


OOlf, 


9 


.9806068e- 


OOlf, 


9 


.9805687e- 


OOlf, 


9 


.9805306e- 


OOlf, 


9 


.9804926e- 


OOlf 



#endif /*_MSC_VER && „M_IX86*/ 

}; 



# endi f / * EXPTABLE && MULT*/ 
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**************************************************/ 

/******** Written By Phillip S. Pang ********/ 

ft******************************************************, 

/******** MD/PhD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 

/**************************^ 

/******** phillip.pang@stanfordalumni.org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



/****************************************** **^ 



/***** **************************^ 

/* */ 

/* THIS CODE WAS TRANSLATED, OPTIMIZED, and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

/* */ 

/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 

/* */ 

/* */ 

/* It has been further modified by Phillip S. Pang */ 

/* */ 
/***** **************************^ 

/***** *************************^ 

#include <time.h> /* Header file for standard time functions */ 



#ifndef CLK_TCK 

#define CLK„TCK CLOCKS_PER_SEC 
#endif 

/* 

Name : GetFloatTimer 

Purpose: Get timer as a second interval between current time 
and given time value. 

Usage: float timer = GetFloatTimer (0) ; 

Some time-consuming process 

timer = GetFloatTimer (timer) ; 



Arguments : 

timer - Time value to be substracted from current time. 

float GetFloatTimer (float timer) 
{ 

/* 

To get correct time difference we need double computation, 
because clock () value may be too great for float presision! 

*/ 

float time = (float) (((double) clock () / CLK_TCK) - timer); 
/* Correct time after midnight */ 



*/ 
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if (time < -1.) time += (3600 * 24); 

/* Correct impossible precision error. */ 

if (time < 0.) time = 0.; 

return time; 



GETTIMER . C 



/*******************************************************/ 

/******** Written By Phillip S. Pang ********/ 

/*******************************************************/ 

/*******************************************************/ 
/******** MD/PhD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/*******************************************************/ 

/*******************************************************/ 
/******** phillip.pang@stanfordalumni.org ********/ 

/*******************************************************/ 



/*******************************************************/ 
/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/*******************************************************/ 



I * * * * * 
/***** 

Est 
via 



For 
Fai 



/* met 
I * * * * * 



*************************************/ 
*************************************/ 

imated Exact Probability Function **/ 

Monte Carlo Simulation **/ 

* * / 

use when exact (FEXACT function) **/ 
Is; and Cochran Conditions are not **/ 

*************************************/ 
*************************************/ 



#include <math.h> 

# include "nrutilp.h" 
# include "rcont2p.h" 
# include "shevek.h" 
#include "definitions. 
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double estExact(int *ROWmatrix, double PRECISION, int numrows, int numcols) 
{ 



int rcont2s(int nrow, int ncol, int *_nrowt,int *_ncolt,int *__matrix) ; 
float rcont2f (void) ; 



int minprecision = 10000; 



int *RANpmatrix; 
int *rowtot ; 
int *coltot; 
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float *expctd; 

double probability; 

double temp; 
double chisq; 
double chisqRAND; 

float tprob; / * VARIABLE IS UNUSED FOR CALCULATIONS*/ 

int tally; 
float ftally; 

int numrows2 , numcols2 , i , j , k,m, n, r , error; 
float sum=0.0; 

/*********************** j 
/*allocate memory */ 

/*********************** j 

RANDmatrix=i vector (0 , (numrows*numcols -1) ) ; 
rowtot=ivector (0 , (numrows-1) ) ; 
coltot=ivector (0 , (numcols-1) ) ; 

expctd=vector (0, (numrows*numcols -1)) ; 



/*********************** j 

/*clears memory =0 */ 
/*********************** j 



for (r=0;r < numrows *numcols ; r++) { 
*(RANDmatrix + r) = 0; 
* (expctd + r) = 0; 

} 



/*********************** j 

/*calc row and col info*/ 
/*********************** j 



numr ows2 =numrows ; 
numc o 1 s 2 = numc o 1 s ; 



/^Number of rows*/ 
/*and columns.*/ 



for (i=0;i< numrows ; i++) { 
rowtot [ i] =0 ; 

for (j=0;j< numcols;j++) { 

rowtot [i] += *(ROWmatrix +(i*numcols + j 
sum += * (ROWmatrix +(i*numcols + j)); 

} 

if (rowtot [i] == 0) 
num*/ 



/*Get the row totals.*/ 
/*clears memory*/ 



-numrows 2 ; 



/*Eliminate any zero rows by reducing the 



for (j=0;j< numcols;j++) { /*Get the column totals.*/ 

coltot [ j ] =0; /*clears memory*/ 

for (i=0;i< numrows;i++) coltot [j] += * {ROWmatrix +{i*numcols + j)); 
if (coltot [j] == 0) --numcols2; /*Eliminate any zero columns.*/ 



/**********************************************************/ 

/*** Test of Matrix: must be 2x2 after zero removal *******/ 
/**********************************************************/ 

if ( (numcols2 < 2) || (numrows2 < 2)) { /** Chisquare statistical analysis not pos 

sible **/ 

return MEANINGLESS; 

} 



/****************** 

/* Calculate chi of 
/****************** 

chisq=0 . 0 ; 



****************** I 

original Rmatrix*/ 
****************** j 
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for (i=0;i< numrows ; i++) { /*Do the chi-square sum.*/ 

for (j=0;j< numcols; { 

*(expctd + (i*numcols + j)) = (coltot [ j ] *rowtot [ i ] ) /sum; 

temp= * (ROWmatrix +{i*numcols + j)) - Mexpctd +(i*numcols + j)); 

chisq += temp*temp / (*(expctd +(i*numcols + j)) + TINY); /*Here TINY guaran 

tees that any*/ /*elim. Div. By zero */ 

} /* eliminated row or column will*/ 

} /*not contribute to the sum.*/ 



/************************************^ 

/* MAIN CYCLE */ 

/* */ 

/* Two parts: */ 

/*First, min. precision of 1/minprecision */ 
/*Then, count till PRECISION, unless tally >= 10 */ 

/******************************** 

/** added to jump over scoring — see shevek.c file and openfile function **/ 

if (PRECISION ==42) { /*occurs when prec == 42 */ 
minprecision = 10; 

} 



tally = 0; 
error = 0; 

error = rcont2s (numrows , numcols , rowtot, coltot , RANDmatrix) ; 
if (error ==0) { 

for (k=l; k<=minprecision; k++) { 

/*** generate random matrix using marginal frequencies ***/ 
/********************************^ 

tprob = rcont2f(); 

/****************************************** 

/*** determine chisquare for that random matrix ***/ 
/**************************************** 

chisqRAND = 0.0; 

for {m=0;m< numrows ;m++) { /*Do the c 

hi-square sum.*/ 

for (n=0;n< numcols ;n++) { 

temp= * (RANDmatrix +(m*numcols + n) ) - *{expctd +{m*numcols + n) ) ; 
chisqRAND += temp*temp / (*(expctd +(m*numcols + n) ) + TINY); /*Here 
TINY guarantees that any*/ 

/*elim. Di 

v. By zero */ 

} /* elimina 

ted row or column will*/ 

} /*not cont 

ribute to the sum.*/ 

/************************************* 

/* COMPARE original matrix to random matrix */ 
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^ IP! j : 



if (chisqRAND >= chisq) 
tally += 1; 



while ((tally<10) && (k<=PRECISION) ) { 
/**********************************^ 

/*** generate random matrix using marginal frequencies ***/ 

tprob = rcont2 f ( ) ; 
/******************************** 

/*** determine chisquare for that random matrix ***/ 
/*********************** **************^ 

chisqRAND = 0.0; 

for (m-0;m< numrows ;m++) { /*Do the c 

hi-square sum.*/ 

for (n=0;n< numcols ; n++) { 

temp= * (RANDmatrix + (m*numcols + n) ) - * (expctd +(m*numcols + n) ) ; 
chisqRAND += temp*temp / (* (expctd + (m*numcols + n) ) + TINY); /*Here 
TINY guarantees that any*/ 

/*elim. Di 

v. By zero */ 

} /* elimina 

ted row or column will*/ 

} /*not cont 

ribute to the sum.*/ 

/***********************************^ 

/* COMPARE original matrix to random matrix */ 
/************************^ 

if (chisqRAND >= chisq) 
tally += 1; 

k = k+1; 

} 
} 

else return MEANINGLESS ; 



{ *END OF MAIN CYCLE*/ 



if (tally != 0) { 

f tally = (float) tally; 
probability = ftally/ (k-1) ; 

} 

else 

probability = 1 . 0/PRECISION; 



f ree_ivector (coltot , 0 , (numcols-1) ) ; 

f ree_ivec t or ( rowtot , 0 , (numrows-1) ) ; 

f ree_i vector (RANDmatrix, 0 , (numrows*numcols -1) ) ; 

f ree_vec tor (expctd, 0, (numrows*numcols -1)); 
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return probability; 



} 



□ 

M' 

ru 

N 

s 

0 

.p 
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/:fc ******* Written By Phillip S. Pang ********/ 



/*******************************************************/ 

/******** MD/PhD Candidate; Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 

/******** phi 1 1 ip . pang@s tanf ordalumni . org ********/ 
/**********************************^ 



STATEMENT OF COPYRIGHT 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



/***************************************^ 
/************************^^ 

/* */ 
/* THIS CODE WAS TRANSLATED , OPTIMIZED, and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

/* */ 

/* Contact information for Raul: http://www.iitiach.uran.ru/rns/ */ 

/* */ 

/* */ 

/* It has been further modified by Phillip S. Pang */ 

/* */ 

/***** **************************************^ 



#include <stdio.h> 
#include <stdlib.h> 
# include "rcont2p.h" 



/* Header file for standard io functions */ 
/* Header file for standard functions */ 
/* Header file for rcont2 functions */ 



Name: pre err 

Purpose: Print an error message to console and exit. 
Usage: pre err (icode, mes) 

Arguments : 

icode - Int code for the error message. (Input) 
mes - Character string containing the error message. (Input) 



void prcerr (int icode, const char *mes) 
{ 

fprintf (stderr, "\nRCONT2 ERROR: %d %s\n" , icode, mes); 

/* Print diagnostic to console */ 
exit (2); /* Close all files and exit with code 1 */ 

} 

/* 

Name : prcerrN 

Purpose: Print error message N to console and exit. 

Usage: prcerrN () 

*/ 
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void prcerrl (void) 

prcerr (1, "Number of rows must be greater than 1."); 

void prcerr2 (void) 

prcerr (2, "Number of columns must be greater than 1 . " ) ; 

void prcerr3 (void) 

prcerr (3, "Row totals must be greater than 0."); 

void prcerr4 (void) 

prcerr (4, "Column totals must be greater than 0."); 

void prcerr5 (void) 

prcerr (5, "Sample size exceeds 5000."); 

void prcerr6 (void) 

prcerr (6, "Sum of row and column totals must be the same."); 
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/******** Written By Phillip S. Pang ********/ 

/******** MD/PhD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 

/******** phillip.pang@stanfordaluirmi.org ********/ 
/************************************** 



STATEMENT OF COPYRIGHT 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



/*********************************************** ^ 
/*****************************************^ 



/*********************************^ 

/* */ 

/* Portable Random Number Generators */ 

/* */ 

/* Gerald P. Dwyer Jr. and K.B. Williams */ 

/* Federal Reserve Bank of Atlanta */ 

/* Working Paper 99-14 */ 

/* October 1999 */ 

/* */ 

/* NOTE: PORTIONS OF THIS CODE IN THIS FILE have been taken */ 

/* from the above paper */ 

/* the above paper. */ 

/* */ 

/* */ 

/* */ 



/* CONTACT THE ABOVE AUTHORS AT: 

Gerald P . Dwyer Jr . , 

Research Department, 

Federal Reserve Bank of Atlanta, 

104 Marietta Street, NW, 

Atlanta, Georgia 30303-2713, 

404/614-7095, 

404/521-8810 (fax) , 

gerald . p . dwyer@atl . f rb . org 

(or dwyerg@clemson.edu) ; 

K.B. Williams, 

412 Magnolia Avenue, 

Melbourne Beach, Florida 32951-2000 

kbwms@aol . com . 

*/ 

/******************************^ 



/* RandComb.cpp 

combination multiplicative random number generator 

takes difference between two random numbers 

randl and rand2 can be initialized outside of file */ 



static const long modi = 2147483647 ; 
static const long multl = 65670 ; 

static const long ql = 2147483647 / 65670; /* modi/ multl ;*/ 
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static const long rl = 2147483647-65670 * (2147483647 / 65670); /*modl - multl * ql ;*/ 



static const long raod2 = 2147483587 ; 
static const long mult2 = 44095 ; 

static const long q2 = 2147483 587/44095; /* mod2 / mult 2 ; */ 

static const long r2 = 2147483587 - 44095 * (2147483647 / 65670); /*mod2 - mult 2 * ql ;*/ 



long randl=l, rand2=l ; 

/*******************************************^ 

/************ PANGRAND function **********/ 

/*****************************^ 

long double pangr and (void) 

{ 

long double randtempl; 

/ * long double randtemp2 ; * / 

1 ong RandC omb (void) ; 

randtempl = ((long double) RandCombO) / ( (long double) (modl-1) ); 
/**randtemp2 = randtempl / ( (long double) (mod2-l) ); **/ 
return randtempl; /* 2*randtemp2; */ 

> 

/*******************************^ 

/************ GENRRAND function **********/ 
/****************************************^ 

/* generate the next value in sequence from generator using approximate factoring */ 

long GenrRanddong rand, long modulus, long mult, long q, long r) 
{ 

long temp ; 



temp = rand / q ; 

vfj temp = mult * (rand - temp * q) - temp 

if (temp < 0) temp += modulus ; 

Ul return temp ; 



/********************************************^ 

/************ RANDC OMB function **********/ 

/* get a random number */ 

long RandC omb (void) 
{ 

long RandNum ; 

long GenrRand(long rand, long modulus, long mult, long q, long r) ; 



randl = GenrRand ( randl , modi, multl, ql, rl) ; 
rand2 = GenrRand ( rand2 , mod2, mult2, q2 , r2 ) ; 
RandNum = randl - rand2 ; 

if (RandNum < 0) RandNum += modl-1 ; 

return RandNum ; 

} 
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/*******************************************************/ 
Written By Phillip S. Pang ********/ 

/*******************************************************^ 
/******** MD/phD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/***** ************************************************ 

/*******************************************************/ 

/******** phillip.pang@stanfordalumni.org ********/ 
^******** **************************************** *******/ 



/*******************************************************/ 
STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/************************************************ ****** */ 



/***********************************************************************/ 
^***********************************************************************/ 
/********* **************************************************************/ 
/* */ 
/* THIS CODE WAS TRANSLATED , OPTIMIZED, and WRITTEN by RAUL Shakirov */ 
/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 
/* */ 
/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 
/* */ 
/* */ 
/* It has been further modified by Phillip S. Pang */ 
/* */ 
/***********************************************************************/ 

/***********************************************************************/ 

y***********************************************************************/ 



/****************************************************************/ 

ft***************************************************************/ 

/* */ 

/* The algorithms found within this file may be derivatives */ 

/* of source code obtained from: */ 

/* ALGORITHM AS 159 APPL. STATIST . (1981) VOL.30, N0.1 */ 

/* See: Patefield, Applied Statistics 30:91-97 (1981) */ 

/* V 
/*,.*,*************,************,*****..**.*,*******..*.********./ 

y*,***********,*.************.*********.**,*********.**********.*/ 

/****************************************************************/ 



#include <float.h> /* Header file for standard math functions */ 

# include <math.h> /* Header file for standard math functions */ 

#include "rcont2p.h" /* Header file for rcont2 functions */ 

/* 

ALGORITHM AS 159 APPL. STATIST. (1981) VOL.30, N0.1 

Name: rcont2s 
rcont2f 

Purpose: Generate random two-way table with given marginal totals 

Usage: srand ((unsigned) time (NULL) ) 

rcont2s (nrow, ncol, nrowt, ncolt, matirix) 
rcont2f () 



Rcount2Pang.C 1 



nrow 
ncol 
nrowt 

ncolt 

matrix 



Notes : 



The number of rows in the contingecy table. (Input) 

The number of columns in the contingency table. (Input) 

Vector of length nrow contining row totals 

of the observed table (Input) 

Vector of length ncol contining column totals 

of the observed table (Input) 

nrow by ncol matrix for the contingency table 

to be generated (Output) 

srand Standard C function which is used to set 
pseudo-random seed (requires stdlib.h) . 

time Standard C function which is used to get 
current time (requires time.h) . 



rcont2s stores arguments and returns error code 



rcont2f does same as rcont2 but uses fast 

table-driven exp function with 20 bit 
presizion instead of standard exp function. 



Static variables and arrays are kept between calls of 
function because they are allocated and inilialized once 
when the program is loaded. Default initial value - 0. 



Static variables for arguments . 



static int nrowm; 
static int ncolm; 
static int *nrowt; 
static int *ncolt; 
static int *matrix; 
static int *jwork; 
static int ntotal; 



/* The number of rows - 1 */ 
/* The number of cols - 1 */ 

/* Vector of row totals */ 

/* Vector of col totals */ 

/* Matrix for the contingency table 

/* Last row of matrix */ 
/* Total sum */ 



/* 



Static work array for optimization purposes 

log - log-factorials (log(l) + log(2) + ... log(n): 

div - dividors (1/n) 



static int nfill =0; /* Index of filled part of fact */ 

/* Work array */ 
static struct {float log, div; } fact [maxtot + 1] ; 



/**************************************************^ 



/******************************************^ 
Name: rcont2s 

Purpose: Prepare to construct random matrix. 
Usage: Ref. top of file. 

Returns : Error code : 

1 Number of rows must be greater than 1. 

2 Number of columns must be greater than 1 . 

3 Row totals must be greater than 0 . 
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4 Column totals must be greater than 0. 

5 Sample size exceeds 5000. 

6 Sum of row and column totals must be the same 



External referencies: 
log, prcerrl . . 6 

* / 

********** ***************************************** *********************/ 



int rcont2s (int nrow, int ncol, 

int *„nrowt, int *__ncolt, 
int *_matrix) 



{ 



/* Local variables */ 
int ntot = 0; 

/* Check for faults and prepare for future calls of rcont2x */ 

if ( {nrowm = nrow - 1) <= 0) 
{ 

return 1; /* Error */ 

} 

if ( (ncolm = ncol - 1) <= 0) 
{ 

return 2; /* Error */ 

} 

/* Store arrays. */ 

nrowt = _nrowt; 
ncolt = _ncolt; 
matrix = _matrix; 

/* EXPTRTO macro calculates debug pointer to sub-array. */ 
jwork = EXPTRTO (int, matrix + nrowm * ncol, ncol) ; 
/* Compute total sum */ 
{ 



int i, ilim; 
ilim = nrow; 

for (i = 0; i < ilim; ++i) 
{ 

int n = nrowt [i] ; 

if (n <= 0) 

{ 

return 3 ; 



/* Loop index and limit */ 



/* Error */ 



} 



} 

ntot += n; 



f {ntot > maxtot) 
return 5 ; 



/* Error */ 



* Calculate log-factorials and dividors */ 



/* Local variables for this blick */ 



int n = nfill; 

float f = fact [n] . log; 



/* Loop index */ 
/* Fact value */ 



for (++n; n <= ntot; ++n) 
{ 

f += (float) log ((float) n) ; 
fact [n] . log = f ; 

fact [n].div= (float) 1. /((float) n) ; 
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nfill = ntot; 



} 



/* Store total sum */ 
ntotal = ntot; 

/* Check if row and column sums are the same */ 



{ 



} 



int j , jlim; 
jlim = ncol; 

for {j = 0; j < jlim; ++j) 
{ 

int n = ncolt [ j ] ; 

if (n <= 0) 

{ 

return 4; 

} 

ntot -= n ; 

} 



/* Loop index and limit */ 



/* Error */ 



if (ntot != 0) 
{ 

return 6; 

> 

return 0; 



/* Error */ 

/* No errors */ 



/***********************************^ 

/* 

Name: rcont2f 

Purpose: Construct random matrix using table-driven 
20 bit exp function. 

Usage: Ref. top of file. 

Returns: Probability of observing the sample table 
as float value. 

External referencies : 
rand, fastexp2 

*/ 

/***********************************^ 



float rcont2f (void) 

#define FASTEXP (value) fas texp2 (value) /* Use table-driven exp function */ 
{ 

/* Local variables */ 

int i, j; /* Loop index and limit */ 

EXPTR(int) matp = matrix; /* Current element to be calculated */ 

float hop = 1.; /* Probabilty value */ 

int jc = ntotal; /* Total sum for subsequent rows */ 

int ib; /* Remainder of total sum */ 

/* Copy ncolt to last row of matrix (jwork) */ 

for (j = 0; j < ncolm; ++ j ) 
{ 

jwork [j] = ncolt [j]; 
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} 

/* Cycle for rows */ 

for {i = 0; i < nrowm; ++i) 
{ 

/* Local variables for this cycle */ 

int ic = jc; /* Remainder of total sum */ 

int ia = nrowt [i] ; /* Remainder of row total */ 

/* Update jc */ 

jc -= ia; 

/* Cycle for elements of the row */ 

for (j = 0; j < ncolm; ++ j ) 
{ 

/* Local variable for this cycle */ 

int nlm; /* Value of element to be computed */ 

/* Test for zero entries in matrix */ 

if (ic != 0) 
{ 

/* Generate pseudo- random number */ 

long double dummy; 

/* Update remainders */ 

const int ie = ic; /* Remainder of total sum */ 

const int id = jwork [j]; /* Remainder of column total */ 
const int ii = {ib = ic - ia) - id; 

/* Calulate initial value of nlm */ 

float fnlm = (float) ia * (float) id * fact [ie] -div 
#if defined (_MSC„VER) def ined(_M„IX86) 

* (float) (1. + FLT_EPSILON) ; 
#else 

+ (float) 0.5; 
#endif 

/* Update ic */ 

ic -= id; 

dummy = (long double) RAND; 

/* Compute conditional expected value of matrix [i] [j] */ 

for (;;) 
{ 

/* Local variables for this cycle */ 

float x, y, sumprb; /* Work values */ 

int nil; /* nlm, nlm-1, ... */ 

#if defined („MSC_VER) && def ined(_M_IX86) 

asm fid fnlm 

asm fistp nlm 

#else 

nlm = (int) fnlm; 
#endif 

x = (float) FASTEXP ( 

fact [ia].log + fact [ib].log + 

fact [icj.log + fact [id]. log - fact [ie].log - 
fact [id - nlm]. log - fact [ia - nlm]. log - 
fact [ii + nlm] .log - fact [nlm] .log 
) ; 

if (x >- dummy) 
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{ 

hop *= x; 

break /* computing for */; 

} 

y = x; 
sumprb = x; 
nil = nlm; 

for (;;) 

/* Local variables for this cycle */ 

int lsp, Ism; /* Work values */ 

if ( (lsp = id - nlm) != 0 && 
(Ism = ia - nlm) != 0) 

/* Increment entry in row i, column j */ 
++nlm; 

x *= ((float) lsp * fact [nlm] .div) * 

((float) Ism * fact [ii + nlm] .div) ; 

if ((sumprb += x) >= dummy) 
{ 

hop *= x; 

goto MATP /* break computing for */; 

} 

} 

else 
{ 

while ( (lsp = nil) ! = 0 

(Ism = ii + nil) ! = 0) 

/* Decrement entry in row i, column j */ 
— nil; 

y *= ((float) lsp * fact [id - nil] .div) 
((float) Ism * fact [ia - nil] .div) 

if ((sumprb += y) >= dummy) 
{ 

hop *= y; 
nlm = nil; 

goto MATP /* break computing for */; 

} 

} 

break /* for */; 

} 

if ( (lsp = nil) != 0 && 

(Ism = ii + nil) != 0) 

/* Decrement entry in row i, column j */ 
— nil; 

y *= ((float) lsp * fact [id - nil] .div) * 
((float) Ism * fact [ia - nil] .div) ; 

if ( (sumprb += y) >= dummy) 
{ 

hop *= y; 
nlm = nil; 

goto MATP /* break computing for */; 

} 

} 

else 
{ 

while ((lsp = id - nlm) ! = 0 && 
(Ism = ia - nlm) != 0) 

{ 
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/* Increment entry in row i, column j */ 
++nlm; 

x *= ((float) lsp * fact [nlm] .div) * 

((float) Ism * fact [ii + nlm] .div) 

if ((sumprb += x) >= dummy) 
{ 

hop *= x; 

goto MA.TP /* break computing for */; 

} 

} 

break /* for */; 

} 

} 

/* Generate new pseudo-random number */ 
dummy = (long double) s umpr b * RAND ; 

} 

MATP: 

/* Set element of matrix */ 

*matp++ = nlm; 
jwork [j] -= nlm; 
ia -= nlm; 

} 

else /* ic == 0 */ 

/* All remaining elements in the row are to be zero */ 

for ( ; j < ncolra; ++j ) 
{ 

*matp++ = 0; 

} 

/* 

Probably, it is sufficient to set ib = 0, 
because ia should be 0 

*/ 

ib = ic - ia; 
ia = 0; 

break /* for */; 

} 

} 

/* Set last element in the row */ 
*matp++ = ia; 

} 

/* Compute last element in last row of matrix */ 
jwork [j] = ib - jwork [j - 1] ; 
return hop; 

} 



#undef FASTEXP /* Undef fastexp */ 
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/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



,******************************************^ 
,******************************************^ 

I * ' 

/* THIS CODE WAS TRANSLATED, OPTIMIZED, and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

/ * * / 

/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 

/ * / 

1 * / 

/ * / 

/* It has been further modified by Phillip S. Pang */ 

/ * / 

/***********************************************^ 



#include <malloc.h> /* Header file for standard memory functions */ 

#include <stdio.h> /* Header file for standard io functions */ 

#include <stdlib.h> /* Header file for standard functions */ 

#include " support. h" /* Header file for support functions */ 

/* 

Static variable to check if memory heap is properly deallocated. 

*/ 

static int syscount; 

/* 

Name: sysalloc 

Purpose: Allocate memory for array. 

Usage: sysalloc (ni terns, size) 

Arguments : 

ni terns - Number of intes in array 
size - size of item 

Result: - Pointer to allocated array 



External referencies: 
syserr40 



void* sysalloc (int nitems, int size) 
{ 

void *p = calloc (nitems, size) ; 
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if (p == NULL) syserr40(); 

++syscount; 

return p; 

} 

/* 

Name: sysfree 

Purpose: Deallocate memory, allocated by sysalloc, 
Usage: sysfree (p) 

Arguments : 

p - Pointer to deallocated array ^ 

void sysfree (void *p) 
{ 

if (p != NULL) 
{ 

— sys count ; 
free (p) ; 

} 

} 

/* 

Name: syschk 

Purpose: Check if memory is properly deallocated. 

Usage: syschk () ^ 

void syschk (void) 

* if (syscount) /* Print diagnostic to console */ 

{ fprintf (stderr, " \nSYSTEM WARNING: Memory leak detected. \n" 

"It's an internal error. Ask developers . \n" ) ; 

} 

} 

/* 

Name: sys err 

Purpose: Print an error message to console and exit. 
Usage: prterr (icode, mes) 

Arguments : 

icode - Int code for the error message. (Input) 
mes - Character string containing the error message. (Input) 
*/ 

void sys err (int icode , const char *mes) 

{ fprintf (stderr, " \nSYSTEM ERROR: %d %s\n" , icode, mes); 

/* Print diagnostic to console */ 
exit (2); /* Close all files and exit with code 1 */ 

} 

/* 

Name : sys errN 

Purpose: Print error message N to console and exit. 
Usage: syserrNO 



void syserr40 (void) 
{ 

syserr (40, "Out of workspace . \n 11 

"Select system with more RAM available"); 
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} 

void syserr41 (void) 

{ syserr (41, "Automatic expansion of array is not permissible . \n" 
"It's an internal error. Ask developers."); 

} 

void syserr42 (void) 

syserr (42, "Index is out of range. \n" 

"It's an internal error. Ask developers."); 

} 

void syserr43 (void) 

syserr (43, "Null pointer indirection. \n" 

"It's an internal error. Ask developers."); 

} 

void syserrSO (void) 

syserr (50, "Integer overflow detected. \n" 

"It's an internal error. Ask developers."); 

} 

/* 

Internal trace counters 
* / 

int pcount [PCOUNT] ; 

/* 

Name: pcinit 

Purpose: Initilaize values of counters. 

Usage: pcinit ( ) 
* / 

void pcinit (void) 
{ 

int i; 

/* Initialize counters */ 

for (i = 0; i < PCOUNT; i++) 
{ 

pcount [i] = 0; 

} 

} 

/* 

Name : ptrace 

Purpose: Increase trace counter. 

Usage: ptrace (n) 

Returns : Counter value . 

Arguments : 

n - Counter 

*/ 

#ifndef ptrace /* Might be implemented as a macro in f exact. h */ 

int ptrace (int n) 
{ 

/* Increase counter */ 
return (++pcount [n] ) ; 

} 

#endif 
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/* 

Name: pctype 

Purpose: Type profiling counters to console. 

Usage: pctype {) 
*/ 

void pctype (void) 
{ 

int i ; 

/* Type carriage return */ 

fprintf (stderr, "\r">; 

/* Type counters */ 

for (i =0; i < PCOUNT; i++) 
{ 

if (pcount [i]) fprintf (stderr, "%d:%d " , i, pcount [i]); 

} 

} 
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/******** Written By Phillip S. Pang ********/ 



/ 



'/******** MD/PhD Candidate, Columbia University ********/ 

...^ nl J« •! « „ On^A^C ********/ 



/******** College of Physicians and Surgeons 
/******** Dept. Of Biochemistry and Biophysics 



,******************************************^ 

/******** phi 1 1 ip . pang@s tanf ordalumni . org ********/ 
^*******************************************************/ 



^******** STATEMENT OF COPYRIGHT ********/ 

Copyright 2 001 by The Trustees of */ 

Columbia University in the City of */ 

New York. ALL RIGHTS RESERVED; */ 



/* 
/* 
/* 



o 

u 

m 
m 

Q 

H 
K 

a 



#include <string.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <ctype.h> 

# include "nrutilp .h" 
# include "shevek.h" 
#include "definitions .h" 



double POFF; 
double CRV_CUTOFF; 

int FILELl; 
int FILEL2; 



/ 



********************************** ****************************/ 
/************ APPLY_THRESHOLDS function *******************/ 
/**************************************************************/ 



void apply_thresholds (int filelength) 
{ 

double *openf ile2 (int pass, int filelength); 
int prelimscan (double *input, int filelength) ; 

/* void eliminator (double *input,int filelength);*/ 

void eliminator2 (double *input,int filelength); 

double * input; 

double *input2; 

int filelength2; 

void message (int number); 



input = openfile2 (0, filelength) ; 
data*/ 

filelength2 = prelimscan (input, FILEL1) ; 
preliminary list of interactions*/ 



/*0PENS THEN READS FILE*/ 
/*returns pointer to sequence 

/*Outputs File PVscan.txt that is 



message (4) ; 



/*PRINT TO SCREEN ELIMINATE INTERSECTING INTERACTIONS*/ 



input2 = openf ile2 (1, filelength2) ; 
n. txt*/ 



/*Opens file just created — PVsca 
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/* eliminator (input2 , filelength2) ; */ /* eliminates intersecting inte 

ractions*/ 

eliminator2 { input2 , FILEL2 ) ; 

f ree_dvec tor (input, 0,FILEL1*COLS) ; /*frees memory allocated for input file */ 
f ree_dvector (input2 , 0 , FILEL2*C0LS) ; 

} 

/************ 0PENFILE2 function **************************/ 

double *openf ile2 { int pass, int filelength) 
{ 

double *read_input2 (FILE *ifile, int pass); 

doubl e * input ; 

char filename [50] ; 

extern double POFF; 
extern double CRV_CUTOFF; 

FILE * input file = NULL; 

int found_file = 0; 

while (found__file ==0) { /*Queries for input file*/ 

if (pass == 0) { 

printf ( " \nPlease enter datafile for threshold application (alldataXXX.txt):"); 
} 

else printf (" \nENTER preliminary predictions file name (PVscan.txt):"); 



scanf {"%s", filename); 

inputfile = f open (filename, "r" ); 

if (inputfile == NULL) { 

printf ("\nFAILURE TO OPEN OR LOCATE FILE! ! ! \n" ); 

found__file = 0; 

} 

else 

found_file = 1; 

} 



if (pass == 0) { 

printf ( " \nTHRESHOLD ENTRY (use numbers above as defaults):"); 
printf (" \nPlease enter a -log(P) threshold (range : 0-inf) :") ; 

scanf ( "%lf" , &POFF) ; /*query for p-value parameter*/ 

/ *NOTE : not currently used */ 

printf ( "\nPlease enter a V threshold (range : 0-1 ):") ; 

scanf ("%lf" , &CRV_CUTOFF) ; /*query for Cramer's V paramerter* 

/ 

/ *NOTE : not currently used */ 



} 



input = read_input2 (input file, pass) ; 
f close ( inputfile) ; 

return input; 

} 
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/**************************************************************/ 

/************ READ INPUT2 function ************************ j 
/**************************************************************/ 

double *read_input2 (FILE *ifile, int pass) 
{ 

void exitprogram { ) ; 

double *dvector (long nl, long nh) ; 
double * input; 

double inputtemp; 

int i; 

int x; 

int filelength =0; 

/*** Memory allocation: determining file size ***/ 

printf ( 11 \nAllocating Memory for data file.\n"}; 

x = fgetc (if ile) ; 
while (x != EOF) { 

if ( x == '\n') filelength += 1; 
x = fgetc (if ile) ; 

} 

if (filelength ==0) { 

printf ( " \nFILE IS EMPTY: ERROR: CONTACT PROGRAMER: phillip.pang@stanfordalumni.org 

\n") ; 

exitprogram ( ) ; 
exit (11) ; 

} 

if (pass == 0) { /* alldata file */ 

filelength = filelength - 3; /** see chi_analysis for output file extras of allda 
ta.txt **/ 

FILEL1 = filelength; 

} 

if (pass == 1) { /*PVscan file */ 

filelength = filelength; /*see output from threshold. c*/ 

FILEL2 = filelength; 



input = dvector (0, f ilelength*COLS) ; 



if (input == NULL) { 

printf { " \nDynamic Memory Allocation FAILURE! ! \n" ) ; 
exitprogram ( ) ; 
exit(l) ; 

] 

else 

printf ( "Allocation Completed. \n" ) ; 



/*** i N puT FILE INTO MEMORY ***/ 

fseek(ifile, 0, SEEK_SET) ; /*start reading from begining of file*/ 
printf ( "Attempting to Read File. Please Wait.Xn"); 

i - 0; /*start at begining of memory*/ 
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input [0] = 0; 
input temp = 0; 



while (i < filelength*COLS) { 

fscanf (ifile, "%lf", &inputtemp) ; 
input [ i ] = input temp ; 

i = i+1; 

} 



printf ("\n\nFile Read.\n"); 
return input; 

} 



/************ PRELIMSCAW function ***********************/ 
/********************************^ 

int prelimscan (double * input/ int filelength) 
{ 



extern double POFF; 
extern double CRV„CUTOFF; 
int £ilelength2 = 0; 



char outfile[30] = "PVscan"; /*output file for data*/ 

char fullname [40] ; /^output file for data*/ 



FILE * output = NULL; /*output file initiation*/ 



/*i = row and col = col*/ 
int i=0; 



int check = -1; 

sprintf ( fullname, "%s.txt", outfile) ; 



output = f open (fullname, "w" ) ; 

if (output == MULL) { 

printf ( 11 \nFailure to Create PVscan File.\n"); 
exit (2) ; 

} 



for (i = 0; i < filelength; i++) { 

if ( ( (* (input + (i * COLS + coll) ) ) >= CRV_CUTOFF) ScSc ( (* (input + (i * COLS + c 
ol2) ) ) >- POFF) ) { 

filelength2 = filelength2 + 1; 

f printf (output, "%d\t%d\t% . 3f \t% . 5f \t% .201f \t% . 5f \t%f \t% . 5f \n" , 

(int) (* (input + (i * COLS + 0))), 

(int) (* {input + (i * COLS + 1))), 

(float) (* (input + (i * COLS + 2))), 

(float) (* (input + (i * COLS + 3))), 
(* (input + (i * COLS + 4))), 

(float) (* (input + (i * COLS + 5))), 

(float) (* (input + (i * COLS + 6))), 

(float) (* (input + (i * COLS +7))) ); 
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} 



} 

f close (output) ; 
return filelength2; 

} 
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written By Phillip S. Pang ********/ 
/*********************************^ 

/*******^********************^ 

/******** MD/phD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/******************************^ 

/*********************************^ 

/******** phillip.pang@stanfordalumni.org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* Mew York. ALL RIGHTS RESERVED; */ 



#include <string.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <ctype.h> 
# include <math.h> 

#include "nrutilp.h" 
# inc lude " shevek . h " 
#include "def initions .h" 



void eliminator2 (double *input,int filelength) 
{ 

void pathfinder ( int f ileposition, int group, double *datafile, int filemax) 
void message (int number); 

int group = -1; 

float df errors- 
float dftemp; 

int groupticker; 
int groupnumber; 

int i; 

double crambest; 
int firstv; 

int firstp; 
double lprobbest; 

int firstdf; 
int dfbest; 
int best; 

int printcounter = 0 ; 

char outfile[30] = "Predict"; /^output file for data*/ 

char fullname[40] ; /^output file for data*/ 

FILE * output = NULL; /*output file initiation*/ 
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/* Part One — FIND ALL NETWORKS of INTERACTIONS/ REDUNDANT INTERACTIONS*/ 
J* tar every postion not found already as part of a network, find its network, and assi 
gn own group name */ 



for (i-0; i<f ilelength; i++) { 

if ( (*{input + (i * COLS + col4) ) ) >= 0 ) { /*not assigned to a group*/ 

pathfinder (i, group/ input/ filelength) ; /*find its network, an 

d assign a group name to entire network*/ 

group = group - 1; /*get new group na 

me*/ 

} 

} 



/* Part Two — Having assigned a group to every preliminary association interaction, f 
ind bestin each group */ 

/* best V to error of .05; then best P; then lowest DF */ 



group = group + 1; /* since last assignment will decrement */ 

groupticker = group ; 



while (groupticker < 0) { /*for each and every group , find best V */ 

firstp = NO; 
groupnumber = 0; 



/*find best P*/ 

/ *NOTE for P, BEST is HIGHEST*/ 



for (i=0; i<f ilelength; i++) { 



if ( (* {input + ( i * COLS + col4) ) ) == groupticker ) { 
groupnumber = groupnumber + 1; 

} 



if ( firstp == NO && {* {input + ( i * COLS + col4) ) ) == groupticker ) { /* 
find first member of this group */ 

lprobbest = (* {input + (i * COLS + col2))); /*assign best P to first P 

in group*/ 

firstp = YES; 

} 

else if { firstp == YES && (* (input + ( i * COLS + col4) ) ) == groupticker ) 
{ /*find other members of this group */ 

if ( lprobbest < {* (input + ( i * COLS + col2))) ) { /*comp 

are P's within group*/ 

lprobbest = (* (input + ( i * COLS + col2))); /*if new one i 

s higher, reasign best */ 
} 

} 

} 
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/*eliminate all but best P, within Perror*/ 

for (i=0;i<f ilelength; i++) { 

if ( {* (input + ( i * COLS + col4))) == groupticker 

/*same group*/ 

(* (input + { i * COLS + col2))) < (Iprobbest - PERROR) ) { 
/*less then best + error*/ 

*( input + (i * COLS + coll)) = NEGONE; 
groupnumber = groupnumber - 1; 

} 

} 

/*is there more than one best left?*/ 

/*then judge by df */ 

/ *NOTE for df, BEST is lowest */ 

if (groupnumber > 1) { /*i.e. more than one member in the group left 

eed to use logP as judge */ 

firstdf = NO; 

/*find best DF*/ 

for (i=0; i<f ilelength; i++) { 

if ( (* (input + { i * COLS + col4) ) ) == groupticker 

/*find first member of group and sub group*/ 

(* (input + ( i * COLS + coll))) != NEGONE 
/*sub-group of best V, within error*/ 

&& firstdf == NO ) { 



dfbest = (int) (* (input + (i * COLS + col3))); /*assign best df t 

o first df in group and sub group*/ 
firstdf = YES; 

} 

else if ( firstdf == YES /*find 

other members of this group */ 

ScSc (* (input + ( i * COLS + col4) ) ) == groupticker 
&& (* (input + ( i * COLS + coll))) != NEGONE ) { 

if ( dfbest > ((int) (* (input + ( i * COLS + col3)))) ) 
{ /*compare DF's within group*/ 

dfbest = (int) {* (input + ( i * COLS + col3)>); /*if new o 

ne is lower, reasign best */ 

} 

} 



} 

/*eliminate all but best*/ 

/* calculation of DF error */ 

dftemp = (float) sqrt { ( (double) dfbest) ); 
dftemp = dftemp + ((int) DFDIMERR) ; 
df error = df temp*df temp; 

for (i=0 ; i<f ilelength; i++) { 

if ( (* (input + ( i * COLS + col4) ) ) == groupticker 
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/*same group*/ 

(* (input + ( i * COLS + coll))) != NEGONE 

/*within subgroup*/ 

&& {* {input + ( i * COLS + col3))) > (dfbest + dferror) ) { 
/^greater then df best*/ 

* {input + (i * COLS + coll)) = NEGONE; 
groupnumber = groupnumber - 1; 

} 

} 

} 



if (groupnumber > 1) { /*i.e. after DF and P best, still more than one, j 

udge by V*/ 

/*is there more than one member in the group left?*/ 
/*then judge by df */ 

firstv = NO; 



/*find best df and eliminatring rest as go*/ 
/ *NOTE for V, BEST is HIGHEST*/ 

for (i=0; i<f ilelength; i++) { 

if ( (* {input + { i * COLS + col4))) == groupticker 

/*find first member of group and sub group*/ 

&& {* (input + ( i * COLS + COll))) != NEGONE 

/* sub-group */ 

&& firstv == NO ) { 



crambest = (* (input + (i * COLS + coll))), 
in group and sub group*/ 

best = i; 
firstv = YES; 

} 



/*assign best to first 



else if { firstv == YES 
other members of this group */ 

&& (* (input + { i * COLS + col4))) == groupticker 

&& (* (input + ( i * COLS + coll))) != NEGONE ) { 



/♦find 



if ( crambest < (* (input + ( i * COLS + coll))) 
/* compare within group*/ 



{ 



s lower, reasign dfbest */ 
previous best DF as not*/ 

} 



crambest = (* (input + { i * COLS + coll))); /*if new one i 

* (input + (best * COLS + coll}) = NEGONE; /*reassign 
best = i; 



if ( crambest > (* (input + ( i * COLS + coll))) 
^if comparison is higher*/ 

* (input + (i * COLS + coll)) = NEGONE; 



) 



} 



/* NOTE: currently, if equal, both are kept */ 
/* NEED TO DO SOMETHING ABOUT THIS - WARN USER */ 



{ / 



groupticker = groupticker + 1; 
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} 



/* Part Three — OUTPUT the best in each group to file — print output to fi 
* * * * * I 

sprintf (fullname, "%s.txt", outfile) ; 
/** OPEN predict FILE for writing **/ 

output = fopen( fullname, "w"); 
if (output == NULL) { 

printf (" \nFailure to Create Predict FileAn" ); 

exit (2) ; 

} 



fprintf (output, "Shevek Predictions\n" ) ; 

fprintf (output, "Posl\tPos2\tCrm V\t-log (P) \tDF\n" ) ; 

for (i=0;i<filelength;i++) { 



/+*** f or debugging*/ 

printf ( 11 \n%d\t%d\t%d\ t% . 5 f \t% . 5f \t% . If \ 

(int) (* (input + (i * COLS + 0))), 
(int) (* (input + (i * COLS + 1))), 
(int) (* (input + (i * COLS + 2))), 
(float) (* (input + (i * COLS + 5))), 
(float) (* (input + (i * COLS + 7))), 
(float) (* (input + (i * COLS +6))) >; 

/***** en d of debugging screen */ 



if ( (* (input + (i * COLS + coll))) ! = NEGONE) { 

fprintf (output, " %d\t%d\t% . 5f \t% . 5f \t% . If \n n , 
(int) (* (input + (i * COLS + 0))), 
(int) (* (input + (i * COLS + 1))), 
(float) (* (input + (i * COLS + 5))), 
(float) (* (input + (i * COLS + 7))), 
(float) (* (input + (i * COLS +6))) ); 



printcounter = printcounter + 1; 



f close (output) ; 



if (printcounter > group ) { /*i.e. there was a redundancy/ degeneracy */ 

^ /* should only happend of DFs are equal */ 

message (6); / *WARN USER to check data */ 



> 



} 



void pathfinder (int filepos, int group, double *datafile, int filemax) { 

/*X = value of first position; Y= value of second position, filemax - total number of i 
s in PVscan file*/ 

/*C0LS is global offset given file shape */ 
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/* Need to put data somewhere */ 

/* Need to mark old data -- eliminator2 function */ 



int xup; 
int xdown; 
int yup; 
int ydown; 

xup = filepos; 
xdown = filepos; 
yup = filepos; 
ydown = filepos; 

(*(datafile + (filepos * COLS + col4) ) ) = group; 

/* Four loops for four 'directions */ 
/* Loop One */ 

while (xup < (filemax-1)) { 

/* if X finds a match seeking up in either position 0 or position 1*/ 

lf ( ( (Mdatafile + (filepos * COLS + 0))) == (Mdatafile + ( (xup+1) * CO 

LS + 0)>) || (Mdatafile + (filepos * COLS + 0))) == {Mdatafile + ( (xup+1) * CO 

LS + 1))) 

} ScSc ( (Mdatafile + ( (xup+1) * COLS + col4) ) ) >= 0 
) 

) ( 

pathfinder( (xup+1); group, datafile, f ilemax) ; 

} 

xup +=1; 

} 

/*Loop Two */ 

while (xdown > 0) { 

/* if x finds a match seeking down in either position 0 or position 1*/ 

lf ( ( (* (datafile + (filepos * COLS +0))) == (* (datafile + ( ( xdown- 1) * 

COLS + 0))} ^ (* (datafile + (filepos * COLS + 0))) == (* (datafile + ( ( xdown- 1) * 

COLS + 1) ) ) 

} ( (* (datafile + ( ( xdown- 1) * COLS + col4) ) ) >= 0 

) 

) { 

pathfinder( (xdown- 1) , group, datafile, f ilemax) ; 

} 
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xdown -=1; 

} 



/* Loop three */ 

while (yup < (f ilemax-1) ) { 

/* if y finds a match seeking up in either position 0 or position 1*/ 

if ( 

( (Mdatafile + (filepos * COLS +1))) == (Mdatafile + ( (yup+1) * CO 

LS + 0))) 

|| (Mdatafile + (filepos * COLS + 1))) == (Mdatafile + ( (yup+1) * CO 

LS + 1) ) ) 

) 

ScSc ( (Mdatafile + ( (yup+1) * COLS + col4) ) ) >= 0 
) 

) { 



pathfinder ( (yup+1), group, datafile, f ilemax) ; 

} 

yup +=1; 

} 



/*Loop four */ 



while (ydown > 0) { 

/* if y finds a match seeking down in either position 0 or position 1*/ 



if ( 

( {* (datafile + (filepos * COLS +1))) == (* (datafile + ( (ydown- 1) * 

COLS + 0 ) ) ) 

|| (* (datafile + (filepos * COLS + 1))) == (* (datafile + ( ( ydown- 1) * 

COLS + 1) ) ) 
) 

( (* (datafile + { ( ydown- 1) * COLS + col4) ) ) >= 0 

) 

) ( 



pathfindert (ydown-1) , group, datafile, f ilemax} ; 

} 

ydown -=1; 

} 



} 
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/*******************************************************/ 
y******** Written By Phillip S. Pang ********/ 

/*******************************************************/ 

/******************* ********** ******************* *******/ 
/******** MD/PhD Candidate, Columbia University ********/ 
/******** college of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/*******************************************************/ 

/*******************************************************/ 

/******** phillip.pang@stanfordalumni.org ********/ 
y*******************************************************/ 



/*******************************************************/ 
/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/*******************************************************/ 



# include <string.h> 
# include <stdio.h> 
# include <stdlib.h> 
#include <ctype.h> 

# include "nrutilp.h" 

# include "shevek.h" 

# include " definitions . h" 

int FILELENGTH; /*file length of alldata file*/ 

/^determined in distribution analyzer function*/ 



/************************************************************** y 
I ********** ** SCREENER function ***********************/ 
/**************************************************************/ 

void screener(int dfilelength, float *VThresh, float *PThresh) 
{ 

void distribution_analyzer (int filelength, float *VThresh, float *PThresh) ; 
void apply_thresholds (int filelength); 
void message (int number); 



message(l); /*print to screen scoring message*/ 

distribution_analyzer (dfilelength, VThresh, PThresh) ; /*caclulate IQR and thus V&P Thr 
esholds */ 



pj- int f( u \n*************************************************") • 

printf ("\n\nSUGGESTED Lower -Log (P) threhold: %f", * PThresh ) ; 
printf ( " \n\nSUGGESTED Lower V threshold: %f", *VThresh) ; 

printf ( " \n\n** *************************************** ******** " ) * 
message (2); /*print to screen threshold warning message*/ 

&pply_ thresholds (FILELENGTH) ; /*filelength is of alldata.txt file*/ 

/*returns filelength of predict.txt file*/ 
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message{3); /*print to screen prediction message*/ 

} 



DI S TRIBUT I ON_ANAL YZ ER function 

void distribution_analyzer (int filelength, float *VThresh, float *PThresh) 
{ 

float Viqr, Piqr; 

int ** input; 

char filename [50] ; 

FILE * inputfile = NULL; 

int found_file = 0; 

int **imatrix(long nrl, long nrh, long ncl, long nch) ; 

void exitprogramO ; 

int i tempi , itemp2 , itemp3 , itemp4 ; 

int i; 

int x; 

int j ,k; 
int temp; 

int svxaV = 0, sumP = 0; 

float Vmedianloc, Pmedianloc; 
float qlocV, qlocP; 

float f irstqV, thirdqV, f irstqP, thirdqP; 
extern int FILELENGTH; 
/***** OPEN FILE ******/ 



while (found_file ==0) { /*Queries for input file*/ 

printf (" \nENTER distribution file name (distribution.txt);"); 
scanf("%s", filename); 
inputfile = f open (filename, "r"); 
if (inputfile == NULL) { 

printf ( 11 \nFAILURE TO OPEN OR LOCATE FILE ! ! \n" ) ; 
found_file = 0; 

} 

else 

found_file = 1; 

} 

/**** READ FILE ********/ 



printf (" \nAllocating Memory for distribution file.\n M ); 

/** determine file size **/ 

filelength = 0; 

x = fgetc (inputfile) ; 
while (x != EOF) { 

if (x == '\n') filelength += 1; 
x = fgetc (inputfile) ; 

] 



/*A1 locate memory */ 
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input = imatrix(0, f ilelength, 1, 4) ; 

if (input == NULL) { 

printf ("\nDynamic Memory Allocation FAILURE !! \n 11 ) ; 
exitprogram( ) ; 
exit (1) ; 

} 

else 

printf ( "Allocation Completed. \n u ) ; 



/*** INPUT FILE INTO MEMORY ***/ 

f seek (inputf ile, 0, SEEK__SET) ; /*start reading from begining of file*/ 
printf { "Attempting to Read File. Please Wait.\n"); 



for(i=0;i < f ilelength; i++) { 

f scanf {inputf ile, "%d %d %d %d" , &itempl , &itemp2 , &iternp3 , &itemp4) ; 

input[i][l] = itempl; /*V spread */ 

input[i][2] = itemp2; /*V counts */ 

input [i] [3] = itemp3; /*-log(P) spread */ 

input [i] [4] = itemp4; /*-log(P) counts */ 

} 

printf {" \n\nDistribution File Read.\n n ); 
fclose (inputf ile) ; 



/********** Analyze Distributions ******/ 

for (j=0; j< f ilelength; { 

if (input [j] [2] != -1) sumV = sumV + input [j] [2]; /*sum total of V counts*/ 

if (input [j] [4] != -1) sumP = sumP + input [j] [4]; /*sum total of P counts*/ 



FILELENGTH = sumV; 

/*printf ("\nV sum = 
/*printf ("\n-log(P) 



%d" ,sumV); */ 

sum = %d\n" , sumP) ; */ 



/* Find medianloc location*/ 

Vmedianloc = ( {( float) sumV) + 1) / 2; 
Pmedianloc = ( ( (float) sumP) + 1) / 2; 

/*printf (" \nV medianloc = %f " , Vmedianloc) ; */ 
/♦printf ( " \n-log (P) medianloc = %f\n" , Pmedianloc) ; */ 



/*Find quartile location*/ 

qlocV = ( ((float) ( (int) Vmedianloc) + 1)) /2; 
qlocP = ( ((float) ((int) Pmedianloc) + 1)) /2; 



/*printf ( " \nV QL = %f" / qlocV); */ 
/*printf ("\n-log(P) QL = %f \n" , qlocP) ; */ 
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/* find V quartiles */ 

temp = 0; 
k =0; 

while (temp < qlocV) { 

temp = temp + input [k] [2]; 
k = k+1; 

} 

firstqV = (float) input [k] [1] ,- /*first quartile location*/ 



temp - 0; 
k = 0; 

while (temp < 3*qlocV) { /*third quartile location*/ 
temp = temp + input [k] [2] ; 
k = k+1; 

} 

thirdqV = (float) input [k] [1] ; 

Viqr = (thirdqV - f irstqV) /1000; /*because distribution is 1000 wide*/ 



/*printf ( M \nV 1Q 3Q = %f \ t%f\n" , firs tqV, thirdqV) ; */ 
/*printf ( B \nV distance = %f \n" , Viqr ) ; */ 

/* find P quartiles */ 

temp = 0 ; 
k =0; 

while (temp < qlocP) { 

temp = temp + input [k] [4] ; 
k = k+1; 

} 

firstqP = (float) input[k][3]; /*first quartile location*/ 



temp = 0; 
k = 0; 

while (temp < 3*qlocP) { 

temp = temp + input[k][4]; 
k = k+1; 

} 

thirdqP = (float) input [k] [3]; /*third quartile location*/ 

Piqr = (thirdqP - firstqP) / (100); /*because distribution is 100 wide*/ 

/*printf (" \n-log(P) lQ-value 3Q-Value = %f \t%f\n" , firstqP, thirdqP) ; */ 

/*Adjust thirdq*/ 

thirdqV = thirdqV/1000 ; 
thirdqP = thirdqP/ (100) ; 



/*printf ( M \nV 50 boundary (adj) = %f ", thirdqV) ; */ 
/*printf (" \n-log(P) 50% boundary ( ad j ) = %f \n" , thirdqP) ; */ 



printf ("\n-log(P) IQR = %f\n",Piqr); 
printf ( n -log(P) 3Q-value = %f\n\ thirdqP) ; 

printf ("V IQR = %f\n\Viqr) ; 

printf ("V 3Q-value = %f \n" , thirdqV) ; 
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/************************ I 
/*Calculate Thresholds*/ 

*VThresh = (float) (thirdqV + (VMULT * Viqr) ) ; 
*PThresh = (float) (thirdqP + (PMULT * Piqr) ) ; 

if (*VThresh < (float) VMINIMUM) 

*VThresh = (float) VMINIMUM; 

if (*PThresh < (float) PMINIMUM) 

*PThresh = (float) PMINIMUM; 

/************************ J 
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y * * * ■* ************************************************* I 

/******** Written By p^iixip S. Pang ********y 

y * * * ■* *************************************************** y 

y*******************************************************y 

y******** MD/PhD Candidate, Columbia University ********/ 
/******** college of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
y*******************************************************y 

y ** * * *************************************************** y 
y******** phillip.pang@stanfordalumni.org ********y 
y * * * ■* *************************************************** y 



y * * * * *************************************************** y 
y******** STATEMENT OF COPYRIGHT ********y 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

y*******************************************************y 



#include <string.h> 
#include <stdio.h> 
# include <stdlib.h> 
ttinclude <ctype.h> 
# include <math.h> 

#include "nrutilp.h" 
# inc lude 11 she vek . h " 
tinclude "definitions .h" 

int pfilelength = 0; 
int OFFSET; 
int NUM_R0W; 

y********************************************************y 

y***** global structures for putative misalignment data */ 
y********************************************************y 

struct position { 
int one; 
int two; 

In- 



struct pair { 
char a; 
char b; 

}; 



struct sequence { 
int name; 

struct position pos; /*position*/ 
struct pair cur; /* current*/ 
struct pair sugl; 
struct pair sug2; 
struct pair sug3 ; 

}; 

struct sequence seq[100000]; 



y********************************************************y 
y********************************************************y 
y********************************************************y 
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/a*************************************************************/ 
/************************************************************** y 

y** ********** MISALIGN_IDENTIFER function *******************/ 
y**************************************************************y 
y***-***********************************************************y 

/* input is pointer to sequence alignment, offset = OFFSET, numrows = NUM_ROWS, and pfilel 
ength is 

length of predict.txt file */ 

void misalign_identif ier (char * input, int offset, int numrows) 
{ 

void misalignment_manager (char *input,int offset, int numrows); 
void message (int number); 



extern int OFFSET; 
extern int NUM_ROW; 

OFFSET = offset; 
NUM_ROW = numrows; 

message (5) ; 

if (numrows > 100000} 



{ 



/^misalignment INTRODUCTORY TEXT */ 

/** SEE structure seq declaration **/ 



printf ("\n\n\n\a\a\a\a\a\aPOSSIBLE MEMORY OVER-RUN in Misalignment Algorithm\n" ) j 
printf (" output is suspect . \n\n\n" ) ; 

printf ("CONTACT THE PROGRAMER: phillip.pang@stanfordalumni.org"); 



misalignment_manager ( input , of f set , numrows ) ; 
/^Manages multiple matrix files*/ 



/************************************************************** y 
y ************ MISALIGNMENT_MANAGER function *************/ 
y**************************************************************y 



void 

{ 



misalignment„manager (char * input, int offset, int numrows) 



int **AR_analysis (char *input, int offset, int numrows, int columnl, int column2 , int 
*num„seq) ; 

int f ind_unique_seq (int *inp, int *out, int ns) ; 
double *openf ile4 { } ; 

int **chi_matrix; 
int columnl^ column2; 
int i,j, tally; 



doubl e * input 4 ; 
int ns = -1; 
int *num__seq; 
int num_unique; 

int *inp; 
int *out; 



/^Predictions Input*/ 

/*num_seq goes from 0 to num therefore total is actually +1*/ 
/*number of unique sequences*/ 

/*1D array of "names " /sequence numbers */ 
/*array of unique sequences*/ /*see num_unique*/ 



char outfile[40] = "Misalign"; 
char f ul lname [10 0]; 



/*output file for data*/ 
/*output file for data*/ 
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extern struct sequence seq[ 100000] ; 
int print flag = NO; 

FILE * output = NULL; /*output file initiation*/ 

num_seq = &ns; 

/** open and read file of prediction data **/ 

input4 = openfile4(); /*OPENS THEN READS FILE*/ 

/*returns pointer to predictions data*/ 



/** initialize output file **/ 
sprintf (fullname, "%s.txt" , outfile) ; 
output = f open (fullname, V); 

if (output == NULL) { 

printf ( M \nFailure to Create Misalign FileAn"), 
exit (2) ; 

} 



/*** F OR EVERY PAIR IN PREDICT FILE, DO THE FOLLOWING ***/ 

for (i=0;i<pfilelength;i++) { 

/* printf ("get this far??"); */ 
columnl = (int) (*(input4 + (i * PCOLS + 0))); 
column2 = (int) (*(input4 + (i * PCOLS + 1))); 
/* printf ("past first read"); */ 

/* Calc AR values, and identify putative misaligned sequences */ 

/* assigns them to structure seq, with seq„num being total number of such sequence 



s */ 

BLEM* / 
} 



chi_matrix = AR_analys is (input, offset, numrows, columnl, column2 , num__seq) ; /*PRO 



/*NOW, WITH THIS LIST of putative misaligned sequences, determine which appear frequen 
tly*/ 

/*printf ("past allocation of all seq 11 );*/ 

/*** first, convert structure of names to a ID integer array ***/ 

ino = ivector (0, (long) ns) ; /*allocate memory; max necessary is num__seq*/ 
lut = ivector (0; (long) ns) J /*allocate memory; max is nur^seq*/ /* IDENTITY OF UNIQU 
E SEQUENCES* / 

for (i=0;i<=ns;i++) *(inp+i) = seq[i] .name; 

/*** second, now find all the unique sequences in that array***/ 
num_unique = f ind_unique_seq ( inp, out, ns); 

if (num_unique == ns) { /*both start @ ZERO!!! */ 

printf ("\nNO SEQUENCES IDENTIFYABLE AS MISALIGNED\n . " ) ; 
fprintf (output, "NO SEQUENCES IDENTIFYABLE AS MISALIGNED\n . " ) ; 

} 

/*** third, now tally number of times each sequence occurs, output as called for ***/ 
else { 

fprintf (output, "SEQUENCES IDENTIFIED AS POSSIBLY MISALIGNED : \n ") ; 
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fprintf (output; "(note: sequence numbering starts at l)\n"); 
f printf (output, "(note: position numbering starts at 0)\n" ); 
fprintf (output, "(The character '#' denotes NO SUGGESTION POSSIBLE) \n" ) ; 

for(i =0; i <= num_unique; i++) { 

tally = 0; 

for (j= 0; j<= ns; j++) { 

if (out[i] == seq[j] .name) tally +=1; 

} 

/* for each unique sequence, if occurs MIN times IS misaligned */ 
if (tally >= MINIMUMSEQ) { 

printf lag = YES; 

printf ("\n\n\nSequence number %d is possibly misalignedXn" , ou t[i])[ 
fprintf (output, An\n******™*****^ 

fprintf (output, "\nSequence number %d is possibly misaligned: \n , outUJ); 



for (j= 0; j<= ns; j++) { 

if (out[i] == seq[j] -name) { 

fprintf (output, " \n\tRegion/Positions : " ) ; 

fprintf (output, "%d-%d\t\t", seq [ j ] .pos . one, seq: [3 ] .pos . two) ; 

fprintf (output, "Units/Characters : " ) ; 

fprintf (output, "%c-%c\n\n" , seq[ j ] . cur . a, seq[ j ] . cur .b) ; 

fprintf (output, "\tSugges ted Alternatives (in order) :\n"); 

fprintf (output, 11 \t%c-%c\n" , seq[ j ] . sugl . a, seqtj] . sugl.b). 

fprintf (output, " \t%c-%c\n" , seq[ j 3 . sug2 . a, seq [j] . sug2 .b) 

fprintf (output, "\t%c-%c\n", seq[ j ] . sug3 . a, seq[ j J . sug3 .b) 



} 

if (printf lag == NO) printf (" \n\n\nNO SEQUENCES IDENTIFIED") 
free_imatrix(chi_matrix, 0, POSITIONS, 0, POSITIONS); 
f close (output) ; 



,*************** ********************************************** 
/************ AR_ANAL YS I S function **********************/ 
/**************************************************************/ 

int **AR_analysis(char *input, int offset, int numrows, int columnl, int column2 , int *num 

_seq) 

{ 

int find_unique_elements2 (char *input, int numrows, int offset, char *aa, int *gap 

' in void r) ' crosstab2(char *input, int **chi_matrix, char *aal, char *aa2, int varl, int v 
ar2, int count 1, int count2) ; * ^ 

void arcalc(int **nn, int ni, int nj , float *chisq, float *df, double *prob, float 
*crarorv, float *ccc, float **ar) ; 

void gap_rectiferl(int **chi_matrix, int gapl, int *cntl, int *cnt2, char *ul) ; 
void gap_rectifer2 (int * *chi_matrix, int gap2 , int *cntl, int *cnt2 , char *u2) ; 

int cell_finder(char * input, int offset, int numrows, int num_start, char *uniquel, cha 
r *unique2, int countl, int count2 , , 

int columnl, int column2 , int **chi_matx2 , float **ar_matnx) ; 

char out file [3 0] = "ARtables"; 
char f ullname [ 40 ] ; 
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char unil [POSITIONS] ; 

char uni2 [POSITIONS] ; 

char * uniquel; 

char * unique 2 ; 



/* array of unique aa in a position*/ 
/*array of unique aa in a 2nd pos */ 



int countl; 
int count 2 ; 

int t emp_nums eq ; 

int i/j,k; 

float chi, d, cram, cc; 
double pr; 

float * chisq, *df, *cramrv, 
double *prob; 

int **chi_matrix; 

int **chi_matx2 ; 

on*/ 

ctions* / 

int gapl, gap2 ; 

float **ar_matrix; 

FILE * output = NULL; 

unique 1 = unil; 
unique2 = uni2 ; 
chisq = χ 
df = &d; 
prob = &pr; 
cramrv = &cram; 
ccc = &cc; 

chi_matrix = imatrix(0 / POSITIONS , 0, POSITIONS); 
trix */ 

ar_matrix = matrix ( 1, POSITIONS+1, 1, POSITIONS+1) ; 
* ** * I 



/^number of unique aa in a position*/ 
/*number of unique aa in a 2nd pos */ 



*ccc; 

/*CROSSTABULATION matrix of correlation frequency 

/*cross tabulation matrix with origin=ORlGIN */ 
/*This ORIGIN shift is necessary for arcalc functi 

/*can and should be replaced by use of ?vector fun 
/*number location of gap (-) in uni arrays*/ 



/**** FO r AR tables! ! ! ! *****/ 



/*allocates memory for an int ma 

/***FOR AR 



/*Open File for output, entitled tabout.txt */ 

sprintf (fullname, " %s%dx%d . txt 11 , outfile, columnl, column2 ) 

output = fopen( fullname, V); 

if (output == NULL) { 

printf ( "\nFailure to Create FileAn"); 
exit (2) ; 

} 



countl = find_unique_elements2 (input, numrows, offset, uniquel, &gapl, columnl); 
count2 = find„unique_elements2 {input, numrows, offset, unique2 , &gap2 , column2) ; 



/*printf ( " \nFUE reached for postion %d" , columnl) ;* / 

cr os stab2 (input, chi_matrix, uniquel, unique2, columnl, column2 , countl, count2); 

gap_rectiferl ( chi„ma trix, gapl , &countl, &count2, uniquel); 
gap_rectifer2 {chi_matrix, gap2 , &countl, &count2, unique2); 

chi_matx2 = subimatrix (chi_matrix, 0 , POSITIONS , 0 , POSITIONS , ORIGIN, ORIGIN) ; 

arcalc (chi_matx2, countl+ORIGIN, count2+0RIGIN, chisq, df, prob, cramrv, ccc, ar_matri 



x) 
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temp_numseq = *num__seq; 

*num_seq = cell_finder (input, of f set , numrows , temp_numseq, uniquel, unique2, countl, cou 

nt2, 

columnl , column2 , chi_matx2 , arjnatrix) ; 



/************************* i 

/*** start of display ****/ 
/************************* J 

printf { " \n\n\n\nActual Frequency Table for %d x %d\n" , columnl, column2) ; 

for (i = 0; i <= count2; i++) 

printf ( "\t%c" , unique2 [i] ) ; 

printf ("Xn") ; 

for (j ~ 0; j <= countl; j++) { 
printf { " %c " , uniquel [ j ] ) ; 

for {k = 0; k <= count2 ; k++) { 

printf ( "\t%d" , chi_matrix [ j ] [k] ) ; 

} 

printf ( M \n") ; 

} 

/** printf ("\nchi:%f df:%f prob:%.15f cram:%f cc:%f\n", chi, d, pr, cram, cc) ; **/ 

j 

/*** END Of DISPLAY ****/ 
/************************* j 

fx*************************** / 

/*** Start of file output ***/ 
/**************************** j 

f printf (output , "Actual Frequency Table:"); 
fprintf (output, "%d x %d\n", columnl, column2) ; 



for (i = 0; i <= (count2); i++) 

fprintf (output, " \t%c " , unique2 [ i] ) ; 

fprintf (output, 11 \n") ; 

for (j = 0; j <= (countl); j++) { 

fprintf (output , "%c" , uniquel [j ] ) ; 

for (k = 0; k <= count2 ; k++) { 

fprintf (output, "\t%d", chi_matrix[ j ] [k] ) ; 

} 

fprintf (output, " \n" ) ; 

} 

/** fprintf (output, "\nchi:%f df:%f prob:%.15f cram:%f cc: %f \n\n\n" , chi, d, pr, cram, 
cc); **/ 



/***output for AR***/ 

fprintf (output, " \n\nAd jus ted Residual (AR) Table:\n"); 
for (j = 1; j <= (countl + 1); j++) { 

for (k = 1; k <= (count2 + 1); k++) { 

fprintf (output, "\t%.5f\t", arjnatrix [ j ] [k] ) ; 

} 

fprintf (output, "\n"); 

} 



/***END OF OUTPUT FOR AR****/ 
f close (output) ; 
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/*** END of file output***/ 

free_subimatrix(chi_matx2, 1, POSITIONS+ORIGIN, 1, POSITIONS+ORIGIN) ,- 

return chi_matrix; /*return pointer for sole purpose of freeing memory allocation*/ 

} 



/************************************ 

/************ FIND_UNIQUE_ELEMENTS2 function ************/ 



int f ind_unique_elements2 { char *input / int numrows, int offset, char *aa, int *gap, int va 
r) 



int NUM__ROW = numrows ; 

int i; 

int j; 

int k; 

int OFFSET = offset; 

int r; 

int exit; 

int counter =0; /* # of unique amino acids */ 

for (k = 0; k < POSITIONS; k++) { /*clear buffer*/ 

aa[k] = 0; 

} 

*gap = -1; /* start off = -1; signifies no gap in position, in any sequen 

ce*/ 

aa[0] = * (input + var) ; /*the first amino acid is always unique*/ 



for (i = 1; i < NUM_ROW; { /*now compare REST of aa=NR-l : therefore < */ 

j = counter; 
exit = NO; 

while (exit == NO) { 

if (* (input + (i * OFFSET + var)) != aa[j]) { 

j = j - l; 

if (j < 0) /*No Match, therefore unique */ { 

counter = counter + 1; 

aa[counter] = * (input + (i * OFFSET + var) ) ; 
exit = YES; 

} else /* No match yet, check previous elements */ 
exit = NO; 
} else / * MATCHED, so exit*/ 
exit = YES; 

} 



for (r = 0; r<=counter; r++) { 
if (aa[r] == '-') 
*gap = r; 
return counter; 

} 

} 

return counter; 
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/************ GAP__REC T I F I ER1 function *******************/ 



void gap_rectif erl (int **chi_matrix, int gapl, int *cntl, int *cnt2, char *ul) 



/* removes gap (-) from chi_matrix 

/* NOTE: any zero columns and rows 

/* produced by gap-as-value removal, 

/* removed in chisq funct. 

/* Two gap removers b/c of iterative 

{ 

int i,j; 

if (gapl != -1) { 



for (i = (gapl+1) ; i <= *cntl ; i++ ) { 

ul[i-l] = ul[i]; /^removes gap label*/ 

for (j = 0; j <= *cnt2; { 

chi_jnatrix[i-l] [ j ] = chi__matrix [i] [j ] ; /*removes gap values*/ 

} 

} 

*cntl = *cntl - 1; 

} 



*/ 
*/ 
*/ 
*/ 

nature of program */ 



} 

/********************************^ 

/************ GAP_RECTIFIER2 function *******************/ 
/*************************************** 



void gap_rectif er2 {int **chi„matrix, int gap2 , int *cntl, int *cnt2, char *u2) 



int k,l; 

if <gap2 J= -1) { 

for (k = (gap2+l); k <= *cnt2 ; k++ ) { 

u2[k-l] = u2 [k] ; /*removes gap label*/ 

for (1 = 0; 1 <= *cntl; 1++) { 

chi_matrix[l] [k-1] = chi_matrix[l] [k] ; /*removes gap values*/ 

} 

} 

*cnt2 = *cnt2 - 1; 

} 



/************ OPENFILE4 function ************************/ 
/************************************^ 

double *openf ile4 ( ) 
{ 

double *read_input4 (FILE *if lie) ; 
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cloubl e * input 4 ; 
char filename [50] ; 

FILE * inputfile4 = NULL; 

int found_file = 0; 

while {found„file == 0) { /^Queries for input file*/ 

printf { " \nENTER predictions file name (predict.txt):* 1 ); 

scanf("%s", filename); 

inputfile4 = f open { filename, "r"); 

if (inputfile4 == NULL) { 

printf { " \nFAILURE TO OPEN OR LOCATE FILE I ! !\n") ; 

found_file = 0; 

} 

else 

found_file = 1; 

} 



input4 = read_input4 (input file4) ; 
f close (input file4) ; 

re turn input 4 ; 



/*********************************^ 

/************ READ INPUT 4 function it*********************/ 
/************************^ 

double *read__input4 (FILE *ifile) 
{ 

double *dvector (long nl, long nh) ,- 

void exitprogram( ) ; 

double * input 4 ; 

double inputtemp; 

int i ; 

char x; 

extern int pfilelength; 



/*** Memory allocation: determining file size ***/ 
printf (" XnAllocating Memory for predict.txt file.Xn"); 



x = fgetc (if ile) ; 
while (x != EOF) { 

if (x == '\n') pfilelength += 1; 
x = fgetc (if ile) ; 

} 

pfilelength = pfilelength - 2; /*see output from threshold. c*/ 



input4 = dvector (0,pf ilelength*PCOLS) ; 

if (input4 == NULL) { 

printf ( " XnDynamic Memory Allocation FAILURE ! ! \n" ) ; 
exitprogram( ) ; 
exi t { 1 ) ; 

} 

else 
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printf ( "Allocation Completed. \n" ) ; 

printf ("Allocated memory for %d predictions\n" ,pf ilelength) ; 



/*** INPUT FILE INTO MEMORY ***/ 

fseek{ifile, 0, SEEK_SET) ; /*start reading from begining of file*/ 
printf ("\n\nAttempting to Read Predictions File. Please Wait.\n n ); 

i = 0; /*start at begining of memory*/ 
input4[0] = 0; 
input temp = 0; 

fscanf (ifile, "Shevek Predictions\nPosl\tPos2\tCrm V\t-log (P) \tDF\n" ) ; /*scan through 
text at top*/ 

while (i < pfilelength*PCOLS) { 

fscanf (ifile, "%lf" / fcinputtemp) ; 
input4[i] = input temp; 

i = i+1; 

} 



printf ("\n\n Predictions File Read.Xn"); 
return input4; 



/**************************************************************/ 
,************ CELL_FINDER function **********************/ 
/**************************************************************/ 



int cell_finder(char * input, int offset, int numrows, int num_start, char *uniquel, char * 
unique2, int count 1, int count2, , 

int columnl, int column2 , int **chi_matx2 , float **ar_matrix) { 

/*this function returns num_seq --> so that next time it is called, begins there*/ 

/*number_start begins at zero, but continues upward*/ 

/* unique is array from 0 to count */ 

/* chi_matx2 and ar_matrix go from = to count+1 */ 

/* column strarts at 0 */ 

void sorter(float *A, int left, int right); 

int sequence_finder(char *input, int offset, int numrows, int start, char charl, cnar 
char2, int columnl, int column2) ; 



int i; 
int j ; 

int temp, temp2 , sizetemp; 
int k; 

char characl; 
char charac2 ; 

int start; /*so that if many seq have same character pair, don't return same 

sequence*/ 

int num_seq; /*counting of number of sequences entered into array*/ 

float *arvector; 

float bestl; 
float best2; 
float best3; 



struct pair si; 
struct pair s2; 
struct pair s3 ; 

extern struct sequence seq[100000] ; 
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num_seq = num_start ; 

/********************************/ 

/* main cycle for each AR table */ 
/********************************/ 



rift 



^**************************************** *********************/ 

/* First determine AR values related to misaligned sequences */ 
^* *************************** *******^^ 

for (i = 1; i <= (countl+ORIGIN) ; i++) { 

for (j = 1; j <= (count2+ORIGIN) ; j++) { 

/*between 0 and neg threshold*/ r . , r . n ^m™^™* < ^ 

if ( ({armatrix[i] [j] < 0.0) && (arjmatrix [ x] [3 1 >= (ARTHRESH* (-1) ) ) 

II ( (ar_matrix[i] [j] > 0.0) (ar_matrix [ i] [ j ] <= ARTHRESH) ) 



) { 



, columnl , column2 ) 



/*is there is a sequence that corrresponds to that cell?*/ 
if (chi_matx2 [i] [j] > 0) { 

temp = chi_matx2 [i] [ j ] ; 
characl = uniquel [ i-1] ; 
charac2 = unique2 [j -1] ; 
start = 0; 

for (k = 1; k <= temp; k++) { 

start = sequenced inder ( input , offset , numrows , start , characl , charac2 

if (start == -1) { 

print f ("ERROR ERROR: LOGIC PATHWAY PROBLEM."); 
exit (5) ; 

} 

num_seq += 1 ; 



seq[num_seq] .name = start; 
seq[num„seq] .pos .one = columnl; 
seq[num_seq] .pos . two = column2 ; 
seq[num_seq] . cur .a = characl; 
seq[num_seq] .cur .b = charac2; 



/* Second, determine suggested alternatives */ 

y********* **************************** *******/ 



/*begin by allocating memory for one dimentional array*/ 
sizetemp = (countl+ORIGIN) * (count2+0RIGIN) ; 
arvector = vector(0, sizetemp-1) ; 
temp2 = 0; 

/* convert two dimentional array into 1 dimentional array*/ 

for (i = 1; i <= (countl+ORIGIN); i++) { 

for (j = 1; j <= (count2+ORIGIN) ; j++) { 

arvector [temp2 ] = ar_matrix [ i] [ j ] ; 
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temp2 += 1; 

} 

} 

/*sort array in increasing order*/ 
sorter (arvector, 0 , sizetemp-1) ; 



/*assign best AR scores to bestl...3*/ 

/*if less then threshold, then not a best score*/ 

if (arvector [sizetemp-1] > ARTHRESH) bestl = arvector [sizetemp-1] ; 
else bestl = (float) NEGONE; 

if (arvector [sizetemp-2] > ARTHRESH) best2 = arvector [sizetemp-2 ] ; 
else best2 = (float) NEGONE; 

if (arvector [sizetemp-3] > ARTHRESH) best3 = arvector [sizetemp-3 3 ; 
else best3 = (float) NEGONE; 



/*Find characters associated with those scores*/ 

for (i = 1; i <= (countl+ORIGIN) ; i++) { 

for ( j = 1; j <= (count2+0RIGlN) ; j++) { 

if (ar_matrix[i] [ j ] == bestl) { 

characl = uniquel [ i-1] ; 
charac2 = unique2 [ j -1] ; 
si. a = characl; 
sl.b - charac2; 

} 

else if (ar_matrix[i] [ j ] == best2) { 

characl = uniquel [i-1] ; 
charac2 = unique2 [ j-1] ; 
s2.a = characl; 
s2.b = charac2; 

} 

else if (ar_jmatrix[i] [ j] == best3) { 

characl = uniquel [i-1] ; 
charac2 = unique2 [ j -1] ; 
s3.a = characl; 
s3 .b = charac2 ; 

} 

1 

} 

/* IF as above, best scores were assigned NEGONE, then suggested chacter is '#' */ 

if {bestl == NEGONE) { 
si. a = NOCHAR; 
sl.b = NOCHAR; 

} 

if (best2 == NEGONE) { 

52. a = NOCHAR; 
s2.b = NOCHAR ; 

} 

if (best3 == NEGONE) { 

53. a = NOCHAR; 
s3.b = NOCHAR; 

} 



/** NOW, assign these suggestions to every sequence from this AR table ***/ 
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/** obviously, if no identifed sequences, then don't nothing will be assigned**/ 
for (k= (num_start+l) ; k<=num_seq; k++) { 



seq[k] 


.sugl 


.a = 


si 


. a; 


seq[k] 


. sugl 


.b = 


si 


.b; 


seq [k] 


. sug2 


.a = 


s2 


. a; 


seqfk] 


. sug2 


b = 


s2 


b; 


seq[k] 


. sug3 


.a = 


s3 


. a; 


seq[k] 


. sug3 


b = 


s3 


b; 



return num_seq; 



/********************************^ 

/************ SEQUENCER INDER function ******************/ 

int sequence_f inder (char * input, int offset, int numrows, int start, char charl, char char 
2, int columnl, int column2) { 

int i; 

int OFFSET = offset; 
int NUM_ROW = numrows; 

for (i = start; i < NUM_ROW; i++) { 

if ( ( (* (input + <i * OFFSET + columnl))) == charl) && ( (*( input + (i * OFFSE 
T + column2))) == char2) ) 
return ; 

} 

return -1; /*THIS PATHWAY SHOULD NEVER OCCUR*/ 

} 



/*******************************^ 

/************ FIND__UNIQUE_SEQ function ********************/ 
/******************************^ 

int f ind_unique_seq( int *inp, int *out, int num__seq) 
{ 

int i; 
int j; 
int k; 

int exit; 

int counter =0; /* # of unique sequences */ 



for (k = 0; k <= num_seq; k++) /*clear buffer*/ 

out[k] =0; /* need this??*/ 

out[0] = *(inp + 0) ; /*the first sequence is always unique*/ 

for (i = 1; i <= num_seq; i++) { /*now compare REST */ 

j = counter; 
exit = NO; 

while (exit == NO) { 

if ( * (inp + i) != out[ j] ) { 

3 = j - l; 
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if (j < 0) /*No Match/ therefore unique */ { 

counter = counter + 1; 
out [counter] = *{inp + i) ; 
exit = YES; 

} else /* No match yet, check previous elements */ 
exit = NO; 
} else /*MATCHED, so exit*/ 
exit = YES; 

} 

} 

return counter; 

} 

/*************************^ 

*FXXMCTION : Crosstab2 ***********************/ 
^**************************************^ 

/* Description: using two lists of unique amino acids, found in position varl, var2 */ 

/* compare all aa in a position to the list [0...p or q] */ 

/* when a match is found in position var, add 1 to matrix position p */ 

/* when a match is found in position var2, add 1 to matrix position q */ 

/* Thus, chi_matrix[p] [q] is a tally of frequency of all possible combinations */ 

/* of amino acids found in varl with var 2, */ 

/** THIS FUNCTION IS REPEATED because it calls two externals, that are limited to another 
file**/ 



void crosstab2 (char *input, int **chi_matrix, char *aal, char *aa2, int varl, int var2 , 
int count 1, int count2) 



extern int OFFSET ; 
extern int NUM_ROW; 

void exitprogram{ ) ; 

int i, j, k, n, m, p, q; 
int f ound_p = 0 ; 
int f ound_q = 0 ; 

for (j = 0; j <= POSITIONS; { 
for (k = 0; k <= POSITIONS; k++) 
chi_matrix[ j ] [k] = 0; 

} 

} 



/*initialize all values to zero */ 



for (i = 0; i < NUM_ROW; i++) 
n = 0; 

/* input compares to n*/ 
m = 0; 

/* input compares to m*/ 
found_p = NO; 
found_q = NO; 



{ 

/*n are unique aa in 1*/ 

/*m are unique aa in 2*/ 

/*when a match is found, signal*/ 
/*when a match is found, signal*/ 



while (found_j) -= NO) { 
if ( n > countl ) { 

printf ( "ERROR: overflow of unique characters set 1"); 

printf( B \n n = %d; i = %d" ,n,i); 

printf ("\n %s - aal after overflow", aal) ; 

printf ("\n%c = input" , ( *input+ (i*OFFSET+varl) ) ) ; 

exitprogram ( ) ; 

exit (4) ; 

} 

if ( * {input + (i * OFFSET + varl)) == aal[n] ) { 
p = n; 

found_p = YES; 

} 

else { 

n += 1; 
founds = NO; 

> 

} 
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while (found_q == NO) { 
if (m > count2 ) { 

printf ( "ERROR: overflow of unique amino acids set 2" 
exitprogram( } ; 
exit (3) ; 

} 

if ( * (input + (i * OFFSET + var2)) == aa2 [m] ) { 
q = m; 

found_q = YES; 

} 

else { 

m += 1; 
found_q = NO; 

} 

} 

chi__matrix[p] [q] += 1; 



/* standi ib functions as defined from ANSI C */ 
/****************************^ 



/*****************************^ 

SORTER function 
/****************************^ 

void sorter (float *A, int left, int right) { 
int i, last; 

void swapper (float *A, int i, int j ) ; 

if (left >= right) 
return; 

swapper(A, left, (lef t+right) 12 ) ; 
last = left; 

for (i=left+l; i <=right; i++) 

if ( (*(A+i)) < (*(A+left)) ) swapper (A, ++last, i) ; 



swapper (A, left, last) ; 
sorter (A, left, last-1) ; 
sorter (A, last+1 , right) ; 



SWAPPER function 



void swapper (float *A, int i, int j) { 

float temp; 

temp = {* (A+i) ) ; 
(*(A+i)) = (*(A+j)); 
(* (A+j) ) = temp; 
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^*******************************************************/ 
/******** Written By Phillip S. Pang ********/ 

/*******************************************************/ 

/*******************************************************/ 
/******** MD/PhD Candidate, Columbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/a******************************************************/ 

/*******************************************************/ 
/******** phillip.pang@stanfordalumni.org ********/ 
/*******************************************************/ 

^*******************************************************/ 
/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/*******************************************************/ 



" ;i s 

ft I 



*********** ******************************************************/ 
/****************************************************************/ 
/****************************************************************/ 

/* . 
/* The algorithms found within this file may be derivatives */ 
/* of source code obtained from the book: */ 
/* "Numerical Recipes in C: The Art of Scientific Computing" */ 
/* published by Cambridge University Press. */ 
/ * * / 

j ************************************************* ***************/ 
,****************************************************************/ 
/ ****************************************************************/ 

# include <math.h> 

# include "nrutilp.h" 
#include "definitions .h" 

y**************************************************************/ 
,************ ARCALC function ***************************/ 
^**************************************************************/ 

void arcalc(int **nn, int ni, int n j , float *chisq, float *df, double *prob, float *cramrv 
, float *ccc, float **ar) 

/*Given a two-dimensional contingency table in the form of an integer array nn[l . .ni] [1 . .n 

this routine returns the chi-square chisq, the number of degrees of freedom df , the signi_ 

cance ^ 

level prob (small values indicating a signi_cant association), and two measures of assocxa 

tion, 

Cramer's V (cramrv) and the contingency coe„cient C (ccc) . */ 

/*Since you pass the address, and fill the value, then of course, the address you passed, 
will have a value in it!*/ 

/*this is how multiple values are returned! */ 
{ 

float gammq( float a, float x) ; 
int nnj ,nni, j , i; 

float sum=0 . 0 , expctd, *sumi , *sunrj , temp; 

double temp2; /****for AR calc***/ 

sumi=vector (1 ,ni) ; 
sumj = vector ( 1 , n j ) ; 

nn i- n i ; /*Number of rows*/ 

nnj=nj; /*and columns.*/ 
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for (i=l;i<=ni;i++) { 
sumi [i] =0 . 0 ; 

for (j=l; j<=nj; { 

sumi[i] += nn[i][j]/ 
sum += nn[i] [ j ] ; 

} 

if (sumifi] == 0.0) --nni; 

} 



/*Get the row totals.*/ 



/* Eliminate any zero rows by reducing the nuni*/ 



for (j=l;j<=nj;j++> { 
sumj [ j ] =0 . 0 ; 

for (i=l;i<=ni;i++) sumj[j] += nn[i][j]; 
if (sumj[j] ~~ 0.0) — nn j ; 

} 



/* *df =nni*nnj-nni-nnj+l ; 
k chisq=0 . 0; 



for (i=l; i<=ni; i++) { 

for (j=l;j<=nj;j++) { 
expctd=sumj [ j ] * sumi [ i ] / sum; 
temp=nn [ i ] [ j ] -expctd ; 

/* *chisq += temp*temp/ (expctd+TINY) ,* 
Div. By zero */ 



/*Get the column totals,*/ 
/^Eliminate any zero columns.*/ 
/*Corrected number of degrees of freedom.*/ 
/*Do the chi-square sum.*/ 



V /*Here TINY guarantees that any*/ /*elim. 



temp2 = expctd * (1 - sumi [i] /sum) * (1 - sumj [j ] /sum) ; 

ar[i][j] = (float) { (temp) / sqrt(temp2) ); /***AR calc***/ 

/*** printf("\n%f %f\n\ temp2, ar[i][j]); ***/ 
} /* eliminated row or column will*/ 



/*not contribute to the sum.*/ 



/* *prob=gammq{0.5* (*df ) ,0.5* (*chisq) ) , 

/* minij = nni < nnj ? nni-1 : nnj-1; 

/ * *cramrv=sqrt ( *chisq/ ( sum*mini j ) ) ; 

/* *ccc=sqrt (*chisq/ {*chisq+sum} ) ; 

f ree_vector ( sumj , 1 , n j ) ; 

f ree_vector ( sumi , 1 , ni ) ; 
} 



*/ /*Chi-square probability function.*/ 

*/ 
*/ 
*/ 
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J********************************* ********* ** ******* ****/ 

/******** Written By Phillip S. Pang ********/ 

7 ****************************************************** * y 

/******** MD/PhD Candidate, Columbia University ********/ 

/******** Col i ege 0 f Physicians and Surgeons ********/ 

/******** Dept. Of Biochemistry and Biophysics ********/ 
/************************************** *^ 

I ********************************************** *********/ 

/******** phillip.pang@stanfordalumni.org ********/ 
/********************************^ 

/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 

/*******************************************************/ 



/*******************************^ 

/********************************************^ 

/*******************************^ 

/* */ 

/* THIS CODE WAS TRANSLATED , OPTIMIZED, and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

/* */ 

/* Contact information for Raul: http : //www. imach. uran . ru/rns/ */ 

/* */ 

/* */ 

/* It has been further modified by Phillip S. Pang */ 

/* */ 
7 *********************************************************************** ; 

/****************************^ 

/**************************^ 

/* 

Header file for fastexp2 function. 
*/ 

extern void fastexp2ini (void) ; 
extern void fastexp2inc (void) ; 
extern double fastexp2 (double value) ; 



t 
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/******** Written By Phillip S. Pang ********/ 

/*******************************^ 

/******** MD/phD Candidate, Coluinbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/************************************^ 

/**************************^ 

/******** phillip.pang@stanfordalumni.org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



/********************************^ 

/* */ 
/* THIS CODE WAS TRANSLATED , OPTIMIZED , and WRITTEN by RAUL Shakirov */ 

/* from FORTRAN TO C, As a work-f or-hire by request of Phillip S. Pang */ 

/* */ 

/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 

/* */ 

/* */ 

/* It has been further modified by Phillip S. Pang */ 

/* */ 
/************************************* 



Common declarations for rcont2 function. 



# include <assert.h> /* 

#include <limits.h> /* 

#include <stdlib.h> /* 

#include " f astexp2 ,h" /* 

#include " support .h" /* 



Include standard assert function */ 

Header file for implementation specific values */ 

Header file for standard functions */ 

Header file for fastexp2 function */ 

Header file for support functions */ 



long double pangrand (void) ; 

/* 

Restrictons: 

maxtot Maximal total sum for the contingency table 
*/ 

#define maxtot 100000 /* Maximal total sum */ 

/* 

Debug pointers and memory allocation functions. 

PLEASE, READ THIS CAREFULLY BECAUSE THE FOLLOWING 
IS NOT COMMON PRACTICE FOR C/C++ PROGRAMMING! 

All rcont2 functions, except for rcont2_ access 
arrays thereby debug pointers instead of common 
C pointers . 

Debug pointer acts as common C pointer and also 
"knows" size of assigned array to perform bound 
check when arrays elements are accessed. 
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If program attempt to access element outside 
array bounds, debug pointer calls prterr42(), 



Check of bounds requires C++ compiler with templates. 
To disable check of bounds either define macro NDEBUG 
or NCHECKPTR or use C compiler. If so, debug pointers 
will be implemented as common C pointers with no bound 
check (please, look for ANSI C implementation below) . 



EXPTR(T) p; 



EXPTRTO (T,m,n) 



Declare debug pointer p to array 
of type T . 

Construct debug pointer to existing 
array m of n elements of type T. 
Array may be represented thereby its 
name, C pointer or debug pointer. 
If the latter case, EXPTRTO macro 
performs bound check. 



EXPTRCHECK(p,n) - Construct common C pointer for 
debug pointer p and check if 
elements 0..n-l are accessible. 



EXPTRNEW (T,n) 
EXPTRDELETE (p ) 



Allocate array for n elements of 
type T and return its debug pointer. 

Deallocate array, allocated by 
EXPTRNEW. 



*/ 



#ifdef cplusplus 



Implementation for C++ with templates. 

Performs bound check if no NDEBUG or NCHECKPTR macro is defined 
Requires files exarray.h and exarray.c 



tinclude "exarray.h" /* Header file for memory allocation functions */ 
#else /* cplusplus*/ 



/* 



Implementation for ANSI C. No bound check. 

Uses custom sysalloc/sysf ree functions from support package. 
Note, that EXPTRNEW allocated one extra item. 
This eliminates non-predictable consequences of common 
programming bug - indexing of non-existing element just 
after the last element. Bound check catches this error 



#define EXPTR(T) 
#define EXPTRTO (T,m,n) 
#define EXPTRCHECK (p,n) 
#define EXPTRNEW (T, n) 
#define EXPTRDELETE (p) 

#endif /* cplusplus*/ 



T* 

(m) 

(P) 

((T*) sysalloc ( (n + 
{sysfree (p) ) 



1) , sizeof(T))) 



/* 



Constant values 

MAXTABLEROWS - Maximum number of rows in the contingency table. 
MAXTABLECOLS - Maximum number of cols in the contingency table. 
MAXTABLESUM - Maximum sum of row/col in the contingency table. 



#define MAXTABLEROWS (SHRT_MAX / 2) /* 
#define MAXTABLECOLS (SHRT_MAX 12) /* 
#define MAXTABLESUM (SHRT__MAX / 2) /* 



/* 



Suggest « SQRT (INT_MAX) 
Suggest « SQRT (INT_MAX) 
Suggest « SQRT (INT_MAX) 



Parameter passing conventions: 

1. Parameters type * represent variables, passed by 
rererence thereby C pointers . 
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Input variables have const modifiers to prevent their 
accidental modification within function. Output and 
input/output variables have no const modifiers to allow 
their modification within function. 

For example: double *pre 

const int nrow 

To pass a variable as a reference , use expression &name. 

For example: &pre 
&nrow 

2. Some functions accepts input variables as values. 
Appropriate parameter has no * sign and may have, 
or not to have const modifier. 

For example: int size 

int ni terns 

To pass a value use name of variable or any expression: 

For example: size 

nrow + ncol 

3. Parameters markes as EXPTR(type) represent arrays, 
passed by their debug pointers . 

Input arrays have const modifiers to prevent their 
accidental modification within function. Output and 
input/output arrays have no const modifiers to allow 
their modification within function. 

For example: EXPTR (double) fact 

const EXPTR (int) irow 

To pass an array, use debug pointer of array or expression 
debug pointer + index. 

For example: fact 

irow + 1 

To produce debug pointer, allocate array thereby macro 
EXPTRNEW or apply macro EXPTRTO to existing array. 

For example: EXPTR (double) fact = EXPTRNEW (double, 400) 

static int rows [400] ; 

EXPTR (int) irow = EXPTRTO {int, rows, 400) 

Arrays, allocated by EXPTRNEW, are to be deallocated 
by means of EXPTRDELETE function. 

For example: EXPTRDELETE (fact) 



/* 

Variables and functions defined in rcont2.c 

*/ 

extern int rcont2s (int nrow, int ncol, 

int *nrowt, int *ncolt, 
int *matrix) ; 



extern float rcont2f (void) ; 
/* 

Function defined in rcont2_.c 

This function is converted by means of f2c 
and is included for the test purposes - its 
results are compared with result of manually 
converted rcount2 function. 

*/ 
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extern struct { float hop; } tempry_; 

extern int rcont2__ (int *nrow f int *ncol, int *nrowt, int *ncolt, 

int * jwork, int *matrix, int *key, int *ifault) ; 

/* 

Functions and variables defined in prterr.c 

*/ 

extern void pre err (int icode, const char *mes) ; 
extern void prcerrl (void) ; 
extern void prcerr2 (void) , 
extern void prcerr3 (void) j 
extern void prcerr4 (void) ; 
extern void prcerrS (void) , 
extern void prcerr6 (void) , 

/* 

Name : RAND 

Purpose: Generate random value in the range [0..1) 

Usage: RAND 

Result: The random value. 

#define RAND ({long double) pangrand ( ) ) ; 
/*#define RAND ((float) rand ( ) / (float) RANDJXtAX)*/ 
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y*******************************************************y 

/******** Written By Phillip S. Pang ********/ 

y*******************************************************y 



y ** * * 


* ** * 


*************************************** 


**** * 


* * * J 


y **** 


** * * 


MD/PhD Candidate, Coluinbia University 


***** 


***y 


y **** 


* * * * 


College of Physicians and Surgeons 


* * * * * 


* * * y 


y * * * * 


* * * * 


Dept. Of Biochemistry and Biophysics 


* * ** * 


* **y 


1 **** 


*** * 


*************************************** 


* * * * * 


* * *y 



y*******************************************************y 
/******** phillip.pang@stanfordalumni,org ********/ 

y*******************************************************y 



y*******************************************************y 
/******** STATEMENT OF COPYRIGHT 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED ; */ 

y*******************************************************y 



y***********************************************************************y 
y***********************************************************************y 
y***********************************************************************y 
y* *y 
/* THIS CODE WAS TRANSLATED, OPTIMIZED, and WRITTEN by RAUL Shakirov */ 
/* from FORTRAN TO C, As a work-for-hire by request of Phillip S. Pang */ 
/* *y 

/* Contact information for Raul: http://www.imach.uran.ru/rns/ */ 

/* */ 

y* *y 

/* It has been further modified by Phillip S. Pang */ 
/* */ 

y***********************************************************************y 
y***********************************************************************y 
y***********************************************************************y 



Heder file for support functions. 



extern void* sysalloctint nitems, int size) 
extern void sysfree (void *p) ; 
extern void syschk (void) ; 



extern void syserr 
extern void syserr 40 
extern void syserr 41 
extern void syserr42 
extern void syserr43 
extern void syserr 50 



(int icode, const char *mes) ; 

(void) ; 

(void) ; 

(void) ; 

(void) ; 

(void) ; 



#define PCOUNT 100 
extern pcount [PCOUNT] ; 



/* Number of profiling counters */ 
/* Profiling counters */ 



extern void pcinit (void) ; 
extern int ptrace (int n) 
extern void pctype (void) ; 



#define ptrace (n) (++pcount [n] ) 

y* 

Name : RAND 

Purpose: Generate random value in the range [0..1) 
Usage : RAND 
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Result: The random value. 

/* #define RAISTD ((float) rand{) / (float) RAND_MAX) */ 
/* #define RAND PANGRAND ( ) ; */ 
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/************************************** 
/******** Written By Phillip S. Pang 

/******** MD/PhD Candidate, Coluinbia University ********/ 
/******** College of Physicians and Surgeons ********/ 
/******** Dept. Of Biochemistry and Biophysics ********/ 
/*******************************^ 

/******** phillip.pang@stanfordalumni.org ********/ 



STATEMENT OF COPYRIGHT 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* New York. ALL RIGHTS RESERVED; */ 



/** Standard Definitions **/ 

#define NO 0 
# define YES 1 

/** ChiSquare and estimating probability routines — from numerical recipies **/ 

#define TINY 1.0e-30 /*A small number.*/ 
#define ITOAX 1000 /* previously 10 0 */ 

#define EPS 3.0e-7 
#define FPMIN 1.0e-3 0 

/** Cochran Conditions Parameters — determine how P value is calculated **/ 

#define PERCENT 0.80 
#define EXPECTED 5.0 
#define MINIMUM 1.0 

/** Parameter limiting the number of different characters possible in a given position **/ 
#define POSITIONS 40 

/** Statistical calculations are not always sensible, given certain data sets **/ 

#define MEANINGLESS -1 /*If statistical calculations are not possible, value set to -1 
*/ 

/** Used when calling chisquare or arcalc functions resets matrix orgin to 1,1 ** 
/** Eventually, this can be removed by redefining matrix which uses this **/ 

#define ORIGIN 1 

/** Multiplier for distributions **/ 

#define PMULT 2 
#define VMULT 1 

/** USED in threshold. c as definition of number of columns of data output in data files ** 
/ 

#define COLS 8 /*NUMBER OF COL IN FILE* / 

#define coll 5 /*C0LUMN FOR CRAMER'S V SCORE*/ 

#define col2 7 /*COLUMN FOR - LOG P SCORE* / 
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#define col3 6 
#define col4 2 



/* COLUMN FOR DF */ 

/*previous COLUMN for X2 , set to GROUP NUMBER* / 



/** Parameters used in misalignment functions **/ 



#define PCOLS 5 
*/ 

#define MINIMUMSEQ 2 



/*Number of columns in predict.txt file see threshold. c 



/^Number of times sequence appears to be considered misaligned 



*/ 

#define ARTHRESH 1.0 
ot*/ 

#define NOCHAR '#' 
*/ 



/^Threshold for AR cellvalues — distinguish misaligned from n 



/*Character default if no suggested alternatives are possible 



/** Variable as flag — when wish to indicate that a variable has meaningless or unused va 
lue **/ 

#define NEGONE -1 

/** Parameter for error and min on logP and V **/ 

#define VERROR 0.05 
#define VMINIMUM 0.40 

#define PERROR 0.0 
#def ine PMINIMUM 2 . 0 

#def ine DFDIMERR 1 
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/******** Written By Phillip S. Pang ********/ 

/********************************^ 

/****************************^^ 

/******** MD/PhD Candidate, Columbia University ********/ 

/******** College of Physicians and Surgeons ********/ 

/******** Dept. Of Biochemistry and Biophysics ********/ 

/******** phillip.pang@stanfordalumni.org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2 001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* Mew York. ALL RIGHTS RESERVED; */ 



His 
s 



The algorithms found within this file may be derivatives 
of copyright source code obtained from the book: 
"Numerical Recipes in C: The Art of Scientific Computing" 
published by Cambridge University Press. 



/**************************^ 



#ifndef _NR__UTILS__H_ 
#define _NR_UTILS_H„ 



static float sqrarg; 

#define SQR(a) ( (sqrarg= (a) ) == 0.0 ? 0.0 -. 
static double dsqrarg; 

ttdefine DSQR(a) ( (dsqrarg= (a) ) == 0.0 ? 0.0 



static double dmaxargl , dmaxarg2 ; 

#define DMAX(a,b) (dmaxargl= (a) ,dmaxarg2= (b) , (dmaxargl 
(dmaxargl) : (dmaxarg2)) 



sqrarg* sqrarg ) 

: dsqrarg Msqrarg) 

> ( dmaxarg2 ) 



static double dminargl , dminarg2 ; 

#define DMIN(a,b) (dminargl= (a) , dminarg2= (b) , (dminargl) < (dminarg2) ?\ 
(dminargl) : (dminarg2)) 

static float maxargl ,maxarg2 ; 

#define FMAX(a,b) (maxargl= (a) ,maxarg2= (b) , (maxargl) > (maxarg2) ?\ 
(maxargl) : (maxarg2)) 

static float minargl , minarg2 ; 

#define FMIN(a,b) (minargl= (a) ,minarg2= (b) , (minargl) < (minarg2) ?\ 
(minargl) : (minarg2)) 

static long lmaxargl , lmaxarg2 ; 

#define LMAX(a,b) {lmaxargl= (a) , lmaxarg2= (b) , (lmaxargl) > (lmaxarg2) ?\ 
(lmaxargl) : (lmaxarg2)) 

static long lminargl , lminarg2 ; 

#define LMIN(a,b) (lminargl= (a) , lminarg2= (b) , (lminargl) < (lminarg2) ?\ 
(lminargl) : (lminarg2)) 

static int imaxargl , imaxarg2 ; 

#define IMAX(a,b) (imaxargl= (a) , imaxarg2- (b) , (imaxargl) > (imaxarg2) ?\ 
( imaxargl ) : ( imaxarg2 ) ) 



nrutilp.h 1 



static int iminargl , iminarg2 ; 

#define IMIN(a,b) (iminargl= (a) , iminarg2= (b) , (iminargl) < (iminarg2) ?\ 
{ iminargl } ; ( iminarg2 ) ) 



#define SIGN(a,b) ((b) >= 0.0 ? fabs(a) : -fabs(a)) 



void nrerror(char error_text [ ] ) ; 

float *vector(long nl, long nh) ; 

int *ivector (long nl, long nh) ; 

unsigned char *cvector (long nl, long nh) ; 

unsigned long *lvector (long nl, long nh) ; 

double *dvector (long nl, long nh) ; 

float **matrix(long nrl, long nrh, long ncl, long nch); 
double **dmatrix(long nrl, long nrh, long ncl, long nch); 
int **imatrix(long nrl, long nrh, long ncl, long nch); 

int **subimatrix(int **a, long oldrl, long oldrh, long oldcl, long oldch, 

long newrl, long newel) ; 
float **convert„matrix( float *a, long nrl, long nrh, long ncl, long nch) ; 
float ***f3tensor (long nrl, long nrh, long ncl, long nch, long ndl, long ndh) ; 
void free_vector ( float *v, long nl, long nh) ; 
void free_i vector (int *v, long nl, long nh) ; 
void free_cvector (unsigned char *v, long nl, long nh) ,* 
void free_l vector (unsigned long *v, long nl, long nh) ; 
void free_dvec tor (double *v, long nl, long nh) ; 

void free_matrix( float **m, long nrl, long nrh, long ncl, long nch) ; 
void free_dmatrix (double **m, long nrl, long nrh, long ncl, long nch) ; 
void free__imatrix(int **m, long nrl, long nrh, long ncl, long nch) ; 
void free_subimatrix(int **b, long nrl, long nrh, long ncl, long nch) ; 
void f ree_convert_matrix ( float **b, long nrl, long nrh, long ncl, long nch) ; 
void free_f 3 tensor (float ***t, long nrl, long nrh, long ncl, long nch, 
long ndl, long ndh) ; 



#endif /* _NR_UTILS_H_ */ 
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/******** Written By Phillip S. Pang ********/ 

/***************************^ 

/*****^**********************^ 

/******** MD/phD Candidate, Columbia University ********/ 

/******** College of Physicians and Surgeons ********/ 

/******** Dept. Of Biochemistry and Biophysics ********/ 

/****************************^ 

/******** phillip. pang@stanfordalumni .org ********/ 



/******** STATEMENT OF COPYRIGHT ********/ 

/* Copyright 2001 by The Trustees of */ 

/* Columbia University in the City of */ 

/* Mew York. ALL RIGHTS RESERVED; */ 



void arcalc(int **nn, int ni, int n j , float ♦chisq, float *df, double *prob, float *cra 

mrv, float *ccc, float **ar); 

void apply_thresholds (int f ilelength) ; 

int **chi„analysis (char *input, int start, int stop); 

int chisquare(int **nn, int ni, int nj , float *chisq, float *df, double *prob, double 

*cramrv, float *ccc) ; 

int cochrantest { int **chi_matrix/ int *rowtot, int *coltot, float *expctd, int numrows 
, int numcols) ,- 

float **convert_matrix (float *a, long nrl, long nrh, long ncl, long nch) ; 

void crosstab (char * input, int **chi_matrix, char *aal, char *aa2, int varl , int var2 , 

int countl, int count2) ; 

void distribution_analyzer (int f ilelength, float *VThresh, float *PThresh) ; 
eliminator (double *input,int f ilelength) ; 

estExact(int *ROWmatrix, double PRECISION, int numrows, int numcols); 
fastexp2 (double value) ; 

f ind_unique_elements (char *input, char *aa, int *gap, int var) ; 
gap_rectif er (int **chi_matrix / int gapl, int gap2,int *cntl, int *cnt2) ; 
intro ( ) ; 
main ( ) ; 

matrixconverter (int **chi_matrix, int *matrix, int countl, int count2, int flag) ; 
misalign_identif ier (char * input, int offset, int numrows) ; 
message (int number); 
*openf ile ( ) ; 

*openf ile2 (int pass, int f ilelength) ; 
positionrelater (char *input); 
pre limscan (double * input, int f ilelength) ; 
rcont2f (void) ; 

_nrowt,int *_ncolt,int *_matrix) ; 



void 
double 
double 
int 
void 
void 
void 
void 
void 
void 
char 
double 
void 
int 
float 
int 
void 
void 
double 
void 
void 



rcont2s (int nrow, int ncol,int 
scorejtianager ( char * input ) ; 
screener(int dfilelength, float *VThresh, float *PThresh) ; 
*dvector (long nl, long nh) ; 
free_dvector (double *v, long nl, long nh) ; 
exitprogram( ) ; 
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degenmsg 



***************************************** 

******************************************************************** 

WARNING WARNING WARNING WARNING WARNING WARNING 
******************************************************************** 
******************************************************************** 

The number of groups {as defined by linkage between positions) 
is less then the number of predictions, indicating that one 
of the predictions is redundant. 

This is most likely due to a redundancy in DF values, P values, 
and very similar V values. 

For absolute accuracy, my best suggestion is to eliminate both 
of these predictions. 

Alternatively, run the program for higher P; 

A final alternative is to call up the frequency table for these 
two interactions, and by inspection attempt to determine which 
one seems reasonable. (Don't know the best way to do this.) 

******************************************************************** 
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eliminatemsg 



******************************************************* 
******************************************************************** 

Thresholds Applied: Preliminary Analysis Complete 
******************************************************************** 
******************************************************************** 

Shevek has used the input thresholds to perform a preliminary screen 
of all the possible associations, eliminating all associations 
not possessing the threshold criteria. 

The output from this preliminary screen can be viewed under file: 
'pvscan . txt ' 

Shevek will not eliminate all intersecting interactions within this 
list. 

******************************************************************** 
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****** ************************************************************** 
******************************************************************** 

Misalignment Identif cation Process 
******************************************************************** 
******************************************************************** 

Shevek will now attempt to identify misaligned sequences. Shevek 
will output a file entitled/ 'rnisalign.txt', which will list 
sequences identified as possibly misaligned by categorical 
statistical analysis. 

This information can be used to re-align the sequence alignment. 
After such re-alignment, rerun Shevek with the new alignment for 
increased prediction accuracy. 

Stop such iteration when the number/ identity of possibly misaligned 
sequences no longer changes -- or further re-alignment is not deemed 
possible. 

******************************************************************** 
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******************************************************************** 
************************************************************** 

PREDICTIONS COMPLETE: SEE 'predict.txt' 
******************************************************************** 

******************************************************************** 

Note: predictions identify alignment positions. In order to identify 
how these alignment positions relate to sequence of interest/ see 
the file 'position.txt.' 

******************************************************************** 
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**************************************************** 
******************************************************************** 

Scoring and Standardization Accomplished. 
******************************************************************** 
******************************************************************** 

Please view your alldata file using any plotting program. 
Suggested Plots : P versus V; and -logP versus V 

Shevek will now calculate suggested lower thresholds for V and -logP 
Use these thresholds to help choose an appropriate area. 

******************************************************************** 



scoremsg Page 1 
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******************************************************************** 
******************************************************************** 

Threshold Application Process (Screening) 
********************************************* 

******************************************************************** 

USER: having reviewed the suggested plots as well as the suggested 
thresholds caclulated above, Shevek will now request the thresholds 
that you have decided upon. If you are unsure of what to enter, 
use as default values the thresholds stated above. 

WARNINGS : 

(1) Important Notice: 

The suggested thresholds represent values that will minimize the 
possibility of false-positives. Consequently, selection of 
thresholds lower than the suggested ones may result in false 
predictions. If no data points are above these thresholds, see 
warning number (2) and/ or: Altering the sequence set by the 
addition of more sequences and/or increase the diversity of the 
sequences that are chosen. 

(2) Given The Above: 

At the begining of the program, an INTEGER PRECISION was entered 
for the calculation of the P score. If the suggested -log(P) 
threshold is greater than that entered PRECISION, then Shevek should 
be rerun with a PRECISION value at least +1 greater than the 
suggested -log{P) threshold. In other words, if you entered 4 for 
the PRECISION and the suggested -log(p) threshold is 5, then it is 
highly advised that Shevek be rerun with a precision equal to or 
greater than 6. 

******************************************************************** 
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Welcome to Shevek 



******************************************************************** 
************************************************************************** 
** ** 
** SSSSSSSSS H H EEEEEEEEE V V ** 

** S H H E V V ** 

** SSSSSSSSS HHHHHHHHH EEEEEEEEE V V ** 

** S H H E V V ** 

** SSSSSSSSS H H EEEEEEEEE W ** 

** ** 
************************************************************************** 
************************************************************************** 
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